#!/usr/bin/perl

use strict;
use warnings;

use Benchmark;

timethese -1, {
    trivial1  => sub {1},
    trivial2  => sub {2},
};

__END__

Benchmark: running trivial1, trivial2 for at least 1 CPU seconds...
  trivial1:  1 wallclock secs ( 1.13 usr +  0.00 sys =  1.13 CPU) @ 4479726.55/s (n=5062091)
  trivial2:  3 wallclock secs ( 1.97 usr + -0.01 sys =  1.96 CPU) @ 43171185.71/s (n=84615524)