#!/usr/local/bin/perl

#use CGI;
$q = new CGI;
print $q->header;

$in = <STDIN>;
print $in;