C:>perl -le "sub u { unless(shift) { 'false' } }; print u($_) for undef, '', 0..3"
false
false
false
1
2
3

C:>perl -le "sub i { if(shift) { 'true' } }; print i($_) for undef, '', 0..3"


0
true
true
true