#!/usr/bin/perl> use Net::FTP; $ftp = Net::FTP->new("10.10.10.3", Debug => 0); if ($ftp == undef) { die ("Couldn't open ftp connection, $@\n"); } $ftp->login('test','test'); $ftp->binary; for(<*.*>) { $ftp->put($_); } $ftp->quit;