use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $ua = LWP::UserAgent->new() || die "Unable to create new UserAgent object";
my $url = 'http://cosmias02d.mwh.com:7778/reports/rwservlet';
my %form_data = (
   SERVER       => 'repcosmias02d',
   USERID       => 'mwh/prahd@dev',
   REPORT       => 'ap_daily_jrnl.rep',
   DESTYPE      => 'PRINTER',
   DESNAME      => 'cohpisd012',
   DESFORMAT    => 'hplwide',
   STATUSFORMAT => 'xml'
);
my $request = POST($url, \%form_data);
my $response = $ua->request($request);
$response->remove_header();
$content = $response->as_string();
print "$content\n";