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