#!/usr/local/bin/perl print "Content-type: text/plain\n\n"; printf "I am %s.\n",(getpwuid($>))[0];