#!/usr/bin/perl -w
  use strict;
  use Net::FTP;

  my $ftp = Net::FTP->new("ftp.cpan.org", Debug => 1);

  $ftp->login("anonymous", 'boutros@boutros-ghali.com');
  $ftp->cwd("/pub/CPAN");
  $ftp->get("README", '/tmp/CPAN-README');
  $ftp->quit;