use Net::FTP;
 my ($dropzone,$path,$l,$p,$filename)=@_;
 
 $ftpobj = Net::FTP -> new ($dropzone, Timeout => 1200, Debug => 1,Passive => 0)or die "Cannot connect to $dropzone: $!";
 $ftpobj -> login($l,$p)or die "Cannot login to ftp ", $ftpobj->message;
 $ftpobj -> cwd ($path) or die "$!: No Such path $path";
 $ftpobj ->binary;
 $ftpobj -> put ("$filename") or die "copy failed for $filename...$!\n", $ftpobj->message; 

..........