DBD::mysql::st execute failed: Table '' doesn't exist
DBD::mysql::st execute failed: Table 'RegenMedline.user_tables' doesn't exist at Medlineparser.pl line 639.

$main::dbh = DBI->connect("dbi:mysql:databasename",
                       $main::user="username",
                       $main::password="password",
                       {PrintError => 1,
                        RaiseError => 1,
                        AutoCommit => 1})
                        or die "Can't connect to database: $DBI:errstrn";

my $sth = $main::dbh->prepare("
                SELECT table_name
                FROM user_tables");

$sth->execute();

while (my ($table_name) = $sth->fetchrow_array()){
  print "table_name = $table_namen";
}

> mysql -u username -ppassword

mysql> select * from RegenMedline.user_tables