Select Code to Download

#!/usr/bin/perl

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

print "Content-type: text/html\r\n\r\n";
print "Counter for $referer is $num\n";