#!C:\Perl64\bin\perl.exe
use strict;
use WWW::Mechanize;
use HTTP::Cookies;


my $outfile = "out.htm";
my $url = "https://loginban.tataindicombroadband.in:8443";

my $username = "username";
my $password = "password";

my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());

$mech->get($url);

my $result = $mech->submit_form(
form_name => 'authenticateForm',
fields => {
username    => $username,
password    => $password,
}
);
die "SUBMIT failed\n" unless $result->is_success

my $output_page = $mech->content();
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);