#!/usr/local/bin/perl

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