Select Code to Download

#!/usr/bin/env perl 
use strict;
...

print "a yes\n" if     all { $_ == 0 } (0, 0, 0);
print "b no\n"  unless all { $_ == 0 } (0, 1, 0);