use CGI;
use Compress::Zlib;

print "Content-type: text/html\n\n";
read (STDIN, $output, $ENV{"CONTENT_LENGTH"});
$PostRecords = uncompress($output) ;
print "MESSAGE was $PostRecords\n";
print "MESSAGE is on the MSMQ";