Select Code to Download

$sth = $dbh->prepare('SELECT * 
                      FROM   all_tables 
...
while (@row = $sth->fetchrow_array) {
    print "@row\n";
}

my $sql = <$filecontent>;

$sql =~ s/\$table_name/$table_name/e;