[cmilfo@cmilfo monks]$ perl -MO=Deparse,-p hello.pl

    ($nice = 0);
    sub hello1 {
        (($nice or return('Hi')) or return('Get Lost!'));
    }
    sub hello2 {
        (((!$nice) || return('Hi')) and return('Get Lost!'));
    }
    print(hello1(), hello2());
    hello.pl syntax OK