Select Code to Download

$sth->prepare("INSERT INTO Blah (a,b,c) VALUES (?,?,?)");
tie @list, 'Tie::File', $filename;
...

untie @list;
unless ($errors) { unlink $filename; }

$sth->prepare("INSERT INTO Blah (a,b,c) VALUES (?,?,?)");
tie *TSV, 'File::ReadBackwards', $filename;
...

untie *TSV;
unless ($errors) { unlink $filename; }