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

$mech->form_name('authenticateForm');
$mech->form_number(1);
$mech->field(username => $username);
$mech->field(password => $password);
$mech->click("Submit");

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