Select Code to Download

use strict;
use warnings;
...
$mech_obj->submit();

print "content:\n", $mech_obj->content();

all forms:
$VAR1 = [
...
                 'action' => bless( do{\(my $o = 'http://search.cpan.o
+rg/search')}, 'URI::http' )
               }, 'HTML::Form' );
Unexpected field value http://search.cpan.org at (eval 5) line 1