Select Code to Download

#!/usr/bin/perl
print "Content-type: text/html\r\n\r\n";
...
print "</BODY>\n";
print "</HTML>\n";
exit (0);

root@jackalope 680# ls -ld /var /var/www
drwxr-xr-x 15 root root 4096 Dec 12 09:11 /var
...
/var/www/perl:
total 4
-rw-r--r-- 1 root root 232 Dec 12 09:58 hello.pl