Net::FTP Example

#!/usr/local/bin/perl

use Net::FTP;

$ftp = new Net::FTP("ftp.cdrom.com");if ($ftp->login("anonymous","me\@myhost.com")) { @dir = $ftp->dir(); print "The following files are in the root directory:\n"; foreach $file (@dir) { print "$file\n";

} $ftp->get("README");}else { print("Unable to login to ftp server\n";}

Previous slide

Back to first slide

View graphic version