#! /usr/local/bin/perl

#require "/usr/local/lib/perl/pwd.pl";
#&initpwd;

printf "Content-type: text/html\n";
printf "\n";

printf ("pwd=>\n%s\n", $ENV{'PWD'});

$e=`env`;
printf("<H3>Environment variables</h3><pre>\n%s\n</pre>\n",
	$e);