Perl 访问FTP

#ftp#ljl#!/usr/bin/perluse strict;use Net::FTP;my $user = "anonymous";my $passwd = "chinaunix@";my $host = "ftp.freebsd.org";my $ftp = Net::FTP->new("$host", Debug =>0)or die "Can't connect to $host: $@\n";$ftp->login("$user","$passwd")or die "Can't login\n", $ftp->message;$ftp->cwd("/pub/FreeBSD/doc/")or die "Can't change dir\n", $ftp->message;$ftp->get("README")or die "get failed\n", $ftp->message;$ftp->quit;exit 0;FTP下载