Select Code to Download

use autodie;
use Fcntl ':flock', ':seek';
...
seek $fh, SEEK_SET, 0;   # Only needed if you're going to write.
truncate $fh, 0;
close $fh;