#!/usr/bin/perl --

use strict;
use warnings;

use Benchmark qw' cmpthese ';

BEGIN { *begin = sub {} }

INIT { *init = sub {} }

sub declared {}

*runtime = sub {};

cmpthese(-3, {
    begin      => sub { begin()    for (1 .. 1000) },
    init       => sub { init()     for (1 .. 1000) },
    declared   => sub { declared() for (1 .. 1000) },
    runtime    => sub { runtime()  for (1 .. 1000) }
});
__END__