https://logindel.tataindicombroadband.in:8443/user/refresh/home?user=xxxxxxxx&ServerList=vsnl.net&save=2&imageField.y=21&mageField.x=31&t=flcwmm4m',

##</code><code>##

'location' => 'https://logindel.tataindicombroadband.in:8443/user/refresh/home;jsessionid=z6toaqyuja0p?user=xxxxxx&ServerList=vsnl.net&t=flcx2pnr',

##</code><code>##

$uri = ""https://logindel.tataindicombroadband.in:8443/user/refresh/home";
                use LWP::UserAgent;
                use HTTP::Cookies;
                my $ua = LWP::UserAgent->new(keep_alive => 300);
                $ua->agent("MyBrowser 8.0");

                 my $cookie_jar = HTTP::Cookies->new(
                               file => $Config::cookie,
                autosave => 1,
                );

                $ua->cookie_jar($cookie_jar);

                print "1\n";
                my $req = $ua->post($uri,
                                ["user" => $username,
                                 "username" => $username,
                                 "password" => $password,
                                 "ServerList" => "vsnl.net",
                                 ]);

                die unless $req->is_success;
}