#!/usr/local/bin/perl -w
use CGI;
use Cwd;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use vars qw($dataIn);
$dataIn = new CGI;
print $dataIn->header();
print qq!
Current Working Directory
As far as the web server is concerned, the current working
directory of this CGI script is: