print "<FORM METHOD=\"post\" ENCTYPE=\"multipart/form-data\">\n";
print "<INPUT TYPE=\"FILE\" SIZE=\"25\" NAME=\"UPLOAD\">\n";
print "<input type=\"hidden\" name=\"login\" value=\"$login\">\n";
print "<input type=\"hidden\" name=\"password\" value=\"$password\">\n";
print "<input type=\"submit\" value=\" Send File \">\n";
print "</FORM>\n";

##</code><code>##

$dir = '/Full/path/to/ul/dir';
$filename = $input{'UPLOAD'};
$filename =~ s/.*[\/\\](.*)/$1/;
$fileUp = $dir.$filename;

my $upload_filehandle = "$filename";
open UPLOADFILE, ">$dir/$filename";
binmode UPLOADFILE;
while ( <$upload_filehandle> )
{
  print UPLOADFILE;
}

close UPLOADFILE;