!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;

use constant HOST  => 'ftp.cpan.org';
use constant DIR1  => '/pub/CPAN';
use constant FILE1 => 'robots.txt';

my $ftp = Net::FTP->new(
    HOST, 
    Debug => 1, 
    Passive => 1, 
    Timeout => 1
);

$ftp->login('anonymous');
$ftp->cwd(DIR1);
$ftp->ascii;
$ftp->get(FILE1);
$ftp->quit;