#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new(
    agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',
    cookie_jar => {},
    stack_depth => 1,
    autocheck => 1,
);

$mech->get('http://www.hotmail.com');

$mech->submit_form(
    form_name => 'f1',
    fields => {
        login  => 'myemail@hotmail.com',
        passwd => 'passwd',
        LoginOptions => 3,
    }
);

print $mech->content();