#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<"EOF"; PWD

pwd

EOF $pwd = "the working directory is :".`pwd`; print $pwd; print <<"EOF2"; EOF2