DB<3> print if( $ftp->cwd( $whole ) );
Net::FTP=GLOB(0x47dbf4)>>> CWD /web
Net::FTP=GLOB(0x47dbf4)<<< 250 CWD command successful.

  DB<4>