Select Code to Download

x $mechanize->find_all_submits()
0  HTML::Form::SubmitInput=HASH(0x7f9fab008238)
   '/' => '/'
...
   'type' => 'submit'
   'value' => 'Search Site'
   'value_name' => ''

% mech-dump /tmp/hypermut.html 
GET http://searcher-green.lanl.gov/search
...
  ...
  submit=Run                     (submit)
  <NONAME>=<UNDEF>               (reset)

#!/usr/bin/perl
use warnings;
...
    close $testfile;
    return($testfile . '');
}