Select Code to Download

#!/usr/local/bin/perl -w

...
}

$dbh->disconnect();

@tables = grep { s/.*\.//o } @tables;