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