#!c:/perl/bin/perl -w
$|++;

use strict;
use Cwd;

our $q;

BEGIN {
  require CGI::Simple;
  $q = CGI::Simple->new;
}

print $q->header('text/plain'), "We're in ", cwd();