Here is how I wrote a unix to nt fpt program
Hope it helps

use Net::FTP;

#Connect to server
$ftp = Net::FTP->new("1.1.1.1");

#Check for connection
if ( $ftp->login("anonymous","anonymous") != 1 ) { return 0; }
    
#Change to the directory                    
if ( $ftp->cwd("dir") != 1 ) { return 0; }

#Put file  
$status = $ftp->put($infile, $outfile);

#Log off
$ftp->quit;
[download]