Server: Microsoft-IIS/5.0
Server: WebSphere Application Server/5.0
##</code><code>##

use strict;    # of course.
use warnings;
use Carp;
use LWP::UserAgent;
use LWP::Debug qw(+);
use HTTP::Request;
....
$ua = LWP::UserAgent->new(timeout => 90);
$ua->agent("ediscript/0.5 ");
#   Establish a memory resident, temporary cookie jar (database) to hold any used cookies.
$ua->cookie_jar({});
....
###  Code to construct XML content string
my $res = sendRequest($dnldContent, $dnldURL)

print $res;
....

sub sendRequest {
    my $reqXML = shift || return undef;
    my $reqURL = shift || return undef;

    my $req = HTTP::Request->new(POST => $reqURL);
    $req->content_type('text/xml');

    $req->content($reqXML);

    my $res = $ua->request($req);

    croak "Error while sending the Request to ", $res->request->uri, " -- ", $res->status_line, "\n"
        unless $res->is_success;

    return $res->content;
}