#!/usr/local/bin/perl

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

print "Test system operator\n";
system("pwd");

print "Test backquotes\n";
$A = `pwd`;
print "pwd = $A\n";

print "End of test\n";
