perl -MO=Deparse -e "sub test { return int(rand(2)) or print 'Nope' }"
sub test {
    print 'Nope' unless return int rand 2;
}
-e syntax OK