Select Code to Download

my $xml = "<test>post did it go threw</test>";
my $SendObject = Win32::OLE->new('microsoft.XMLhttp');
...
$SendObject->send($xml);
my $response = $SendObject->responseText;
print "<br><br>POST RESPONSE: $response";

if($ENV{'REQUEST_METHOD'} eq 'POST'){
    my $val = <STDIN>;
    print $val;
}