my $url = "https://www.telecom.co.nz/xtralogin.fcc?TYPE=33554433&REALMOID=06-0005cc45-3c3e-1f6c-93b5-80edbce40000&GUID=&SMAUTHREASON=0&METHOD=GET&SMAGENTNAME=$SM$bPLaid7UiFr%2fcTQchTKdU5ckPa0CnhjCk2Zds2Wopak%3d&TARGET=$SM$https%3a%2f%2fwww%2etelecom%2eco%2enz%2fjetstreamum%2fxtra";
my $mechanize = WWW::Mechanize->new(autocheck => 1);
$mechanize->cookie_jar(HTTP::Cookies->new);
$mechanize->get($url);
$mechanize->form_name('Login');
$mechanize->field('USER','digger');
$mechanize->field('PASSWORD','testpass');
$mechanize->click();
my $page = $mechanize->content;
open (FH, ">usage.html");
print FH $page;
close(FH);