Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
$sth->finish;

# do stuff with @new_files ....

#!/usr/local/bin/perl -w
use strict;
...
     or die "Can not append to bench.txt";
print BENCH "$_\n" foreach (@new_files);
close BENCH;