perl模块Net::FTP的例子。
从远程ftp机器上下载指定的文件，学习Net::FTP模块的用法。
代码：
#!/bin/perl
#
use Net::FTP;
$ftp = Net::FTP->new("ftp.jb200.com", Timeout => 30)
or die "Could not connect.n";
$username = "anonymous";
$password = "asdf";
$ftp->login($username, $password)
or die "对不起，登录失败.n";
$ftp->cwd('/pub/CPAN');
$remotefile = "CPAN.html";
$localfile = "file.txt";
$ftp->get($remotefile, $localfile)
or die "下载文件失败.n";