use LWP::UserAgent;
use HTTP::Request::Common;

# URL we're posting to
my $URL = "http://whatever.com";

# The xml_request
my $xml_req = <xml string></xml string>";

my $ua = LWP::UserAgent->new();

my $result = $ua->request(POST $URL, $xml_req);  


print "Content-type: text/plain\n\n";
print $result->as_string();
print $result->content();