#!/usr/sbin/perl -- -*-perl-*-

# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";
$rep=$ENV{"HTTP_REFERER"};
open(FORM,"<../wwwww/printing.html");
while (<FORM>)
{
s/NAME="url"/NAME="url" VALUE="$rep"/;
print $_;
}