#!/usr/local/bin/perl

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

open (PROC_HANDLE, "pwd|");
$A = <PROC_HANDLE>;
print "$A\n";
close(PROC_HANDLE);


open (PROC_HANDLE, "|more");
print PROC_HANDLE "Print this message.\n";
close(PROC_HANDLE);

