open HTML, "<", "login.html"
or die "Couldn't read 'login.html' : $!\n";
my $html = do { local $/; };
$mech->{content} = $html;
$mech->_reset_page();
if ( $mech->is_html ) {
$mech->{forms} = [ HTML::Form->parse($mech->{content}, "http://www.thesite.com/members/") ];
$mech->{form} = $self->{forms}->[0];
$mech->_extract_links();
};