#!/usr/bin/perl -w

use Benchmark qw(timethese cmpthese countit timestr);

use constant CONST_MOD => 3;
sub CONST_SUB () { 3 };
my    $const_my = 3;
local $const_local = 3;
my    $const_ref = \3;
local *const_alias = \3;

print "mod[".CONST_MOD."]sub[".CONST_SUB."]\n"
  ."my[$const_my]local[$const_local]\n"
  ."ref[$$const_ref]alias[$const_alias]\n";

cmpthese (1_000_000,
            {
              CMod => sub { my $t = CONST_MOD },
              CSub => sub { my $t = CONST_SUB },
              CMy  => sub { my $t = $const_my },
              CLocal => sub { my $t = $const_local },
              CRef   => sub { my $t = $$const_ref },
              CAlias => sub { my $t = $const_alias },
            });