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

my $ftp = Net::FTP->new("ftp.mirror.ac.uk", Debug => 1)
  or die "Cannot connect to ftp.mirror.ac.uk: $@";

$ftp->login("anonymous",'-anonymous@')
  or die "Cannot login ", $ftp->message;

$ftp->cwd("/sites/ftp.funet.fi/pub/languages/perl/CPAN/authors/id/C/CF/CFRANKS/")
  or die "Cannot change working directory ", $ftp->message;

$ftp->get("HTML-Menu-DateTime-0.94.tar.gz")
  or die "get failed ", $ftp->message;

$ftp->quit;