#!/usr/bin/perl -w
use strict;
use Benchmark;

sub ender () {
    my $i = 0;
    return sub { ++$i == 10000 }
}

Benchmark::cmpthese(-5, {
    'for (;;)'  => sub {
        my $end = ender();
        for (;;) { last if $end->() }
    },
    'while (1)' => sub {
        my $end = ender();
        while (1) { last if $end->() }
    },
    '{; redo;}' => sub {
        my $end = ender();
        { last if $end->(); redo; }
    }
});
__END__
Benchmark: running for (;;), while (1), {; redo;},
each for at least 5 CPU seconds...
 for (;;): 9 wsecs (5.48 usr + 0.01 sys = 5.49 CPU) @ 57.56/s (n=316)
while (1): 8 wsecs (5.26 usr + 0.01 sys = 5.27 CPU) @ 60.34/s (n=318)
{; redo;}: 8 wsecs (5.08 usr + 0.00 sys = 5.08 CPU) @ 57.68/s (n=293)
            Rate  for (;;) {; redo;} while (1)
for (;;)  57.6/s        --       -0%       -5%
{; redo;} 57.7/s        0%        --       -4%
while (1) 60.3/s        5%        5%        --

##</code><code>##

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 -MO=Deparse -e'for (;;) { print "1\n" }'
for (;;) {
    print "1\n";
}
-e syntax OK

##</code><code>##

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