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><code>##

======code starts=============
 unless ( $ftp->cwd($dir) ){
    warn "Couldn't cwd $dir";
    return;
  }
=======code ends==============

##</code><code>##

print `pwd`;