#!/usr/bin/perl

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

while (<>)
{
   print $_;
}