use Net::FTP;

$ftp = Net::FTP->new("111.111.111.111", Debug => 0, Port => 1069)
or die "Cannot connect to 111.111.111.111: $@";

$ftp->login("user",'login')
or die "Cannot login ", $ftp->message;

$ftp->put("test.txt")
or die "get failed ", $ftp->message;

$ftp->quit;

line 10
get failed The Server is running for 7 Day(s), 19 Hour(s), 24 Minute(s) and 29 S
econd(s)
You are connecting from 111.111.111.111
There is/are 3 User(s) connected right now
12 User(s) logged in since server was started
0 Kbyte Uploaded
3 Kbyte Downloaded
0.000 Kbyte/s average server throughput
0.000 Kbyte/s current bandwidth use
command not understood.