use warnings;
use strict;
use Net::FTP;
my $ftp=Net::FTP->new("ftp.cpan.org", Debug => 1)
        or die "Couldnt connect:$@\n";
$ftp->login("anonymous");
$ftp->cwd("/pub/CPAN");
$ftp->get("README.html");
$ftp->close;