#!/usr/local/bin/perl

print "200 OK\n";
print "Content-type: text/plain\n";
print "\n";


print "chdir test\n";
$path1 = `pwd`;
print "original path = $path1\n";
chdir("/afs/unc/home/jbs");
$path2 = `pwd`;
print "final path = $path2\n";
