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;