#!/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;

##</code><code>##

#!/usr/bin/perl -w

    use strict;
    use WWW::Mechanize;

    my $username    = "rkadm";
    my $password = "rkadm";
    my $login = "Login";


    my $url = "http://abc.toronto.xyz.com:65342";

    # login to your photobucket.com account
    my $mech = WWW::Mechanize->new();
    $mech->get($url);
    $mech->submit_form(
        form_name => 'loginForm',
        fields      => { username => $username, password => $password } 
       

    );
  
    print "Response = \n ".$mech->content( format => 'text' );

   if( $mech->success() )
   {
        print "\n Successful hit.....\n";
   }

    print "Response = \n ".$mech->content( format => 'text' );