do {
        (my($k) = 2);
        'sysAssert'->throw('test assert')
    }->try('err'->catch(do {
        (my($ex) = @_);
        print("caught by with\n");
        dPrt('warn', " with $ex")
    }->with(do {
        (my($ex) = @_);
        print("caught by otherwise \n");
        dPrt('warn', "OTHERWISE:$ex")
    }->otherwise)));

##</code><code>##

if (($pbOnDStarMachine == 1)) {
        (my($sComm) = "sudo dchown nhmgenda '$$this{'sFullPath'}'");
        do {
            libs::exec("$sComm")
        }->try('err'->catch(do {
            (my($ex) = @_);
            dPrt('warn', "$ex")
        }->with(do {
            (my($ex) = @_);
            dPrt('warn', "OTHERWISE:$ex")
        }->otherwise)));
        return('');
    }