#!/usr/bin/perl
# cwd.pl
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Cwd;

my $q = new CGI;
print $q->header,
$q->start_html(),
$q->pre(cwd()),
$q->end_html;