用Perl访问ftp服务器

#!/usr/bin/perl

use Net::FTP;
$ftp = Net::FTP->new("133.109.9.1", Debug => 0)
or die "Cannot connect to some.host.name: $@";
$ftp->login("ftpuser",'ftppwd')
or die "Cannot login ", $ftp->message;
$ftp->cwd("/etc")
or die "Cannot change working directory ", $ftp->message;
$ftp->get("passwd")
or die "get failed ", $ftp->message;
$ftp->quit;