Debug => 1,


##</code><code>##

  #!/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;

##</code><code>##

  Net::FTP: Net::FTP(2.58)
  Net::FTP:   Exporter(5.562)
  Net::FTP:   Net::Cmd(2.19)
  Net::FTP:   IO::Socket::INET(1.25)
  Net::FTP:     IO::Socket(1.26)
  Net::FTP:       IO::Handle(1.21)

  Net::FTP=GLOB(0x1c1dbc)<<< 220 siobhra.indigo.ie FTP server (Version 6.00) ready.
  Net::FTP=GLOB(0x1c1dbc)>>> user anonymous
  Net::FTP=GLOB(0x1c1dbc)<<< 331 Guest login ok, send your email address as password.
  Net::FTP=GLOB(0x1c1dbc)>>> PASS ....
  Net::FTP=GLOB(0x1c1dbc)<<< 230 Guest login ok, access restrictions apply.
  Net::FTP=GLOB(0x1c1dbc)>>> CWD /pub/CPAN
  Net::FTP=GLOB(0x1c1dbc)<<< 250 CWD command successful.
  Net::FTP=GLOB(0x1c1dbc)>>> PORT 62,136,150,113,192,10
  Net::FTP=GLOB(0x1c1dbc)<<< 200 PORT command successful.
  Net::FTP=GLOB(0x1c1dbc)>>> RETR README
  Net::FTP=GLOB(0x1c1dbc)<<< 150 Opening ASCII mode data connection for 'README' (1941 bytes).
  Net::FTP=GLOB(0x1c1dbc)<<< 226 Transfer complete.
  Net::FTP=GLOB(0x1c1dbc)>>> QUIT
  Net::FTP=GLOB(0x1c1dbc)<<< 221 Goodbye.