#!/usr/bin/perl

use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1);

my $url2 = "https://login.live.com/login.srf?id=2&svc=mail&cbid=24325&msppjph=1&tw=0&fs=1&fsa=1&fsat=1296000&lc=1033&_lang=EN&bk=1633438";

$mech->get($url2);

print $mech->content;
print $mech->forms;