use WWW::Mechanize;

$ua=WWW::Mechanize->new;
$ua->get('http://cpan.org');#no forms, contrast with search.cpan.org
warn $ua->forms;
warn $ua->submit;
__END__
Warning: something's wrong at - line 6.
Can't call method "make_request" on an undefined value at C:/Perl/site/lib/WWW/Mechanize.pm line 1641.