my $driver = "DBI:mysql:$db:$host";
my $dbh = DBI -> connect($driver,$user,$pass) or die "Database connection not made: $DBI::errstr";

my $sql = "create database $db ";
my $sth = $dbh->prepare($sql) or die $dbh->errstr(); 

my $dbh = DBI->connect("dbi:mysql:host=$host", $user, $pass) ...

my $dbh = DBI->connect("dbi:mysql:host=$host", $user, $pass) or die "Database connection not made: $DBI::errstr";
my $sql = "show tables";
my $sth = $dbh->prepare($sql) or die $dbh->errstr(); 
$sth->execute() or die $dbh->errstr();
        
while (my @row = $sth->fetchrow_array()) {
        print $row[0]."\n";
        };

@databases = $dbh->data_sources();

 my $sql = "show tables";

 my $sql = "show databases";