#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;

use Cwd;
$dir = cwd;

print $q->header('text/plain'),
      $dir;
exit(0);