Select Code to Download

use Fcntl qw(:DEFAULT :flock :seek);

sysopen FILE, $mailclicks, O_RDWR | O_CREAT or die "couldn't open $mai
+lclicks: $!";
...

truncate FILE, tell FILE; # because the file may be smaller than it wa
+s before
close FILE;

use Fcntl qw(:DEFAULT :flock :seek);

sysopen FILE, $mailclicks, O_RDWR | O_CREAT or die "couldn't open $mai
+lclicks: $!";
...

truncate FILE, tell FILE;
close FILE;