say "1..4";
if 0 {
    say "not ok 1";
}
if 1 {
    say "ok 1";
} else {
    say "not ok 1";
}

sub a {
    say "ok 2";
    0;
}
sub b {
    say "ok 3";
    1;
}
sub c {
    say "not ok";
    0;
}
sub id($arg) {
   $arg; 
}

if a() {
    say "no ok";
} elsif b() {
    say "ok 4";
} elsif id(c()) {
    say "no ok";
}