Select Code to Download

           use 5.004;
           use Fcntl qw(:DEFAULT :flock);
...
               or die "can't truncate filename: $!";

           # now write to FH