Select Code to Download

use Fcntl qw(:flock);

flock(FH, LOCK_SH);

open(FH, "<+ $gb") or die "Could not open $gb: $!\n";
flock(FH, LOCK_EX);
seek(FH,0,0);
truncate(FH,0) or die "Could not truncate $gb: $!\n";