Perl 访问FTP

#ftp
#ljl

#!/usr/bin/perl
use 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 loginn",$ftp->message;

$ftp->cwd("/pub/FreeBSD/doc/")
or die "Can't change dirn",$ftp->message;

$ftp->get("README")
or die "get failedn",$ftp->message;

$ftp->quit;
exit 0;
FTP下载