#!/usr/bin/perl

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

use constant HOST => 'ftp.cpan.org';
use constant DIR  => '/pub/CPAN';
use constant FILE => 'README';

my $ftp = Net::FTP::Throttle->new(
    HOST, 
    Debug     => 1, 
    Passive   => 1, 
    Timeout   => 1,
    Bytes_read => 8192,
    BlockSize  => 8192,
    MegabitsPerSecond => 6) or die "Couldn't connect: $@\n";

$ftp->login('anonymous');
$ftp->cwd(DIR);
$ftp->binary;
$ftp->get(FILE);
$ftp->quit;