Select Code to Download

$VAR1 = bless( {
                 'fieldvals' => {},
...
                 'debug' => undef,
                 'link' => '/foo/bar.php'
               }, 'HTTP::Request::Form' );

$response = $userAgent->request( $form->press( "Submit2" ));

@forms2 = HTML::Form->parse( $text, "here.com");
$d2 =  Data::Dumper->new( \@forms2 );
print $d2->Dump;

$VAR1 = bless( {
                 'inputs' => [
...
                 'method' => 'POST',
                 'action' => bless( do{\(my $o = '/foo/bar.php')}, 'UR
+I::_foreign' )
               }, 'HTML::Form' );