11 lines
228 B
Perl
11 lines
228 B
Perl
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
use Net::FTP;
|
|
|
|
my $ftp = Net::FTP->new("ftp.cpan.org")
|
|
or die "Couldn't connect: $@\n";
|
|
$ftp->login("anonymous");
|
|
$ftp->cwd("/pub/CPAN");
|
|
$ftp->get("README.html");
|
|
$ftp->close; |