Select Code to Download

CPAN: Net::FTP loaded ok
Fetching with Net::FTP:
  ftp://ftp.perl.org/authors/01mailrc.txt.gz
Couldn't cwd authors at /usr/local/lib/perl5/5.8.7/CPAN.pm line 2260

======code starts=============
 unless ( $ftp->cwd($dir) ){
...
    return;
  }
=======code ends==============

print `pwd`;