use WWW::Mechanize 0.63;
use WWW::Mechanize::FormFiller;
$agent = WWW::Mechanize->new();  
$agent->get("http://moonwolf/file2.html");
$agent->form_name('put_form');
$agent->field('file',  ["/tmp/file.1", 'myFilename', 
              ['Content-Type' => 'application/octect-stream']], 1);
$agent->click();

##</code><code>##

   $filename = $fn if (ref($filename));