#!/usr/bin/perl

my $posteddata;
$posteddata .= $_ while (<>);

print << "EOF";
Content-Type: text/plain

$posteddata
EOF