#!/usr/local/bin/perl

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

print "Test system operator\n";

system("pwd");

print "End of test\n";
