#!/usr/bin/perl -w

use CGI qw(:standard);
use Cwd;
my $dir = getcwd;
print header, start_html();
print "<h1>Directory: $dir</h1>";
print end_html();