LINK: Norton Definitions download.cgi: #!/usr/bin/perl -wT use strict; use CGI; use Fcntl qw|:flock|; my $q = new CGI; my ($file) = $q->param('file') =~ /^(\w+\.\w+)$/; open (FILE, "/path/to/logs/$file.txt") or die("Can't open file: $!"); flock (FILE, LOCK_EX) or die("Can't lock file: $!"); my $count = + 1; open (FILE, ">/path/to/logs/$file.txt") or die("Can't open file for writing: $!"); print FILE $count; close (FILE); print "Location: http://site.com/downloads/$file\n\n";