my $databases = $dbh->do("SHOW DATABASES LIKE '".$DATABASE."'") 
	or die "Error: " .dbh->errstr. "\n";

my $databases = $dbh->prepare("SHOW DATABASES LIKE ? ") 
	or die "Error: " .dbh->errstr. "\n";
    
    $databases->execute($DATABASE)
	or die "Error: " . $databases->errstr. "\n";

    print "This is the databases: ".$databases."\n";