#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 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下载