Help for this page

Select Code to Download


  1. or download this
    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;
  2. or download this
    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;