Select Code to Download

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

14:31 >

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

for ($_ = <DATA>; defined $_; $_ = <DATA>)

print "<$_>\n" for <DATA>;

print "<$_>\n" while <DATA>;