#!/usr/bin/perl
use Benchmark;

BEGIN { *begin = sub {} }

INIT { *init = sub {} }

sub declared {}

*runtime = sub {};

timethese(50000, {
    begin      => sub { begin    for (1 .. 1000) },
    init       => sub { init     for (1 .. 1000) },
    declared   => sub { declared for (1 .. 1000) },
    runtime    => sub { runtime  for (1 .. 1000) }
});