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();
};
####
perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web