Select Code to Download

c:\@Work\Perl>perl -le
"use warnings;
...
999
137
print() on unopened filehandle to_1 at -e line 1.

c:\@Work\Perl>perl  -MO=Deparse,-p  -le
"use warnings;
...
print(137);
print(YY::to_1 $_);
-e syntax OK