use strict;

use Net::FTP;

my $ftpobj = Net::FTP-> new("ftp.cpan.org");
$ftpobj -> login ("anonymous", "nowhere");
$ftpobj -> cwd ("/pub");
$ftpobj -> get ("robots.txt");
$ftpobj -> quit;