perl实例之Net :: FTP对象应用举例

#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;

my $ftp = Net::FTP->new("ftp.jb200.com")
or die "Couldn't connect: $@n";
$ftp->login("anonymous");
$ftp->cwd("/pub/CPAN");
$ftp->get("README.html");
$ftp->close;