#!/usr/local/bin/perl
#Print the contents of STDIN as ASCII text
#noexec

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

while (<STDIN>)
{
    print;
}










