Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for (;;)  57.6/s        --       -0%       -5%
{; redo;} 57.7/s        0%        --       -4%
while (1) 60.3/s        5%        5%        --

2;1 juerd@ouranos:~$ perl -MO=Deparse -e'while (1) { print "1\n" }'
for (;;) {
...
    print "1\n";
}
-e syntax OK

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$