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

##</code><code>##

>>> USER myuser
<<< 331 User myuser OK. Password required
>>> PASS ....
<<< 230-User myuser has group access to:  100      33       16      
<<< 230 OK. Current directory is /
>>> CWD /temp/
<<< 250 OK. Current directory is /temp
>>> CWD /temp/
<<< 250 OK. Current directory is /temp
>>> TYPE I
<<< 200 TYPE is now 8-bit binary
>>> ALLO 1800
^^ this is the correct file size

<<< 200 dc.w $4E71
>>> PASV
<<< 227 Entering Passive Mode (1,2,3,4,117,65)
>>> STOR New Text Document (2).txt
<<< 150 Accepted data connection
<<< 226 File successfully transferred
>>> QUIT
<<< 221-Goodbye. You uploaded 0 and downloaded 0 kbytes.
^^ 0 bytes?!

<<< 221 Logout.