#! /usr/local/bin/perl

while (<>) { $input .= $_; }

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