Select Code to Download

use strict;
use Fcntl qw( LOCK_EX SEEK_SET );
...
seek($FH, SEEK_SET, 0);
truncate($FH, 0);
...