benchmark_unary_increment.pl

#!perl

use warnings;
use strict;

use Benchmark qw( timethese );

my ( $preinc, $postinc ) = ( 0, 0 );

timethese(100_000_000, {
  'use_preinc' => sub { ++$preinc; },
  'use_postinc' => sub { $postinc++; },
});