#!/usr/bin/perl
use Cwd;
print "Content-Type: text/html\n\n";
print "<p>Perl says CWD is: ", cwd();
print "<p>System PWD says: ", `pwd`;