#!/usr/local/bin/perl print "Content-type: text/html\n\n"; $directory = $0;