Select Code to Download

my $ftp = Net::FTP->new("my.ftp.server", Debug => 1, Passive => 1) or 
+return;
$ftp->login("myuser","mypass") or return;
...
$ftp->binary;
$ftp->put($file) or return;
$ftp->quit or return;

>>> USER myuser
<<< 331 User myuser OK. Password required
...

<<< 221 Logout.