Select Code to Download

    use 5.004; # make sure you have at least this level perl
    use Fcntl qw(:DEFAULT :flock);
...
    truncate(FH, 0)
        or die "can't truncate filename: $!";
    # now write to FH