use strict;
use warnings;
use Benchmark 'cmpthese';

cmpthese(10000, {
    'eval'   => sub { eval_code() },
    'noeval' => sub { no_eval_code() },,
});

sub eval_code {
    my $x = 0;
    for (1..1000) {
        eval {
            $x+=1;
        }
    }
}

sub no_eval_code {
    my $x = 0;
    for (1..1000) {
        $x+=1;
    }
}