Select Code to Download

Warning: Use of "length" without parentheses is ambiguous

$ perl -le '$_ ="a"; print length() ? "A" : "B"'
A
$