$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; }