#!/opt/bin/perl

select(STDOUT); $|=1; 

while ($l = <STDIN>) {
   $mess .= $l;
   last if ($l =~ /^$/);
}
open(O, ">>/tmp/x"); print O $mess; close(O);

print STDOUT "Content-type: text/html\n\n\nERR";
print STDOUT $mess;
