use Win32::IE::Mechanize;

my $ie = Win32::IE::Mechanize->new( visible => 1 );
$ie->get( "http://www.perlmonks.org" );

$ie->form_number( 2 );
$ie->set_fields(
    user => 'tachyon',
    passwd => 'passwd' 
);

my $content = $ie->content;
while( $ie->content eq $content ) {
    # if the content is still the same we are on same page
    sleep 1;
    print "waiting!\n";
}

print "Done!\n";