#!/usr/bin/perl

use strict;
use HTTP::Request::Common qw{POST};
use HTTP::Response;
use HTTP::Headers;
use HTTP::Status qw(:constants :is status_message);
use CGIWrap;
use LWP::UserAgent;

my $url='http://mycompany.xxx.com/2.0/post';

main();
exit(0);

sub main() {

	my $cgi = new CGIWrap();
	my $ua = LWP::UserAgent->new;
	my %headers = map { $_ => $cgi->http($_) } $cgi->http;
	my $req_headers = HTTP::Headers->new( %headers );
    
	my $readData = sub {
                        read(STDIN, my $buf, 65536);
                        return $buf;
                       };

		       
	my $req = HTTP::Request->new("POST", $url, $req_headers, $readData)
		       
	print STDOUT $cgi->header(-type=>'text/plain');
	print STDOUT $req->as_string(),"\n";
    
	my $res = $ua->request($req);
	if($res->is_success) {
		print STDOUT  $res->code,' ', $res->message,"\n";
	}
	else{
		print STDOUT $res->status_line, "\n";
	}
    
}