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;