用Perl访问ftp服务器

#!/usr/bin/perluse 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;