#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use LWP::Simple;


## set URL
my $url = "http://abc.toronto.xyz.com:65342";
my $ua = LWP::UserAgent->new();

my $res = $ua->post($url, {username => 'rkadm', password => 'rkadm'} );
$res->content_type('text/html');
my $response = $res->decoded_content( charset => 'none' );
print "Response Type = ".$res->content_type;
print "\nResponse Status ".$res->status_line;
## view

print "\nResponse = ".$res->content;