#!/usr/bin/perl -w
print "Content-type: text/plain\n\n";
binmode STDIN;
print while read ( STDIN, $_, 4096 );