Select Code to Download

perl -we "my $s = qq[0\n]; printf qq[%s\n], ($s ? 'true' : 'fal
+se');

syntax error at -e line 1, near "my  ="
Search pattern not terminated or ternary operator parsed as search pat
+tern at -e line 1.

#! perl
use strict;
...
1
0
42

<1>
<
>