Select Code to Download

$mech->submit_form(form_name => 'something', fields => { file1 => '/tm
+p/myfile' }

    my $input = $m->current_form()->find_input('file1');
    $input->content(  $content_here );
    $input->filename( $filename );
    $input->headers( content_type => $content_type );