Select Code to Download

#!/usr/bin/perl -w

...
$sth->finish();
$dbh->disconnect();
close $FH;

while (<$FH>)
{
...
        $row[1] =~ s/^ //g;
        $sth->execute (@row);
}