$ftp->cwd($directory) or $newerr=1; 
push @ERRORS, "Can't cd  $!\n" if $newerr;
myerr() if $newerr;
$ftp->quit if $newerr;

##</code><code>##

if ( !$ftp->cwd($directory) )
{
    push @ERRORS, "Can't cd  $!\n";
    myerr();
    $ftp->quit;
}

##</code><code>##

$ftp->cwd($directory) or ReportError( "Can't cd" );