#! /usr/bin/perl -w
use strict;
use Cwd;
print "Content-type: text/html\n\n";
print "Actual dir is: ", cwd;