Select Code to Download

$ perl -E 'sub t { @_ ? "ab" : "b" } say for t(), t(), t(0), t(1)'
b
b
ab
ab

$ perl -E 'sub t { $_[0] ? "ab" : "b" } say for t(), t(), t(0), t(1)'
b
b
b
ab