#!/usr/bin/perl

use DBI;

my $user = "root";
my $host = "localhost";
my $db 	 = "mysql";
print "Jelszó: ";
my $pass = <STDIN>;
chop($pass);


my $sql = "show tables";
my $dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass);

my $res = $dbh->prepare($sql) 
or die "A $sql nem megfelelő: $dbh->errstr\n";

my $rv = $res->execute
or die "Sikertelen lekérés: $res->errstr\n";

while(@row = $res->fetchrow_array())
{
	print $row[0]."\n";
}

my $rc = $res->finish;
my $rc = $dbh->disconnect;