Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        Rate   C-style foreach
C-style 1923/s      --    -28%
foreach 2681/s     39%      --

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