use Cwd;
my $thisdir = getcwd;
print "Content-type: text/html\n\n";
print "Current directory = $thisdir\n";