system ( 'unix2dos file2upLoad.unix > file2upload.dos' );
sendit ( 'file2upload.dos', $browser );

##</code><code>##

sub sendit {
        my $local_filename = shift;
        my $browser     = shift;
        my $remote_filename;
        my $local_filesize;
        my $text;
        my $request_number = 0;
 
    $local_filesize = -s $local_filename;
    $remote_filename = basename($local_filename);
 
    unless ($local_filesize > 0) {
        if ($debug_level > 0) {
            print "\nSendfile Error: $local_filename not found";
        }
        return 0;
    }
 
    my $resp  = $browser->post("$url/Upload",
             [
               'UploadFile' => [
                $local_filename ,
                $remote_filename ,
               'Content_Type' => "application/x-zip-compressed"
            ],
       'Submit' => 'Send Request File'
       ],
       'Content_Type' => 'form-data'

...                        );

##</code><code>##

'Content_Type' => "application/x-zip-compressed"