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