use Net::FTP; $ftp = Net::FTP->new("xxx", Debug => 1) or die "Cannot connect to host: $@"; $ftp->login("xxx",'xxx') or die "Cannot login ", $ftp->message; $ftp->cwd("xxx") or die "Cannot change working directory ", $ftp->message; $ftp->put("test.txt") or die "put failed ", $ftp->message; $ftp->quit; #### $ftp = Net::FTP->new("xxx", Debug => 1, Passive => 1) or die "Cannot connect to host: $@";