Select Code to Download

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

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

This is the databases: 1

This is the databases: DBI::st=HASH(0xe47058)

#!/usr/bin/perl

...
my $output = &mysql();

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