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

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


sub eval_code {
    my $x = 0;
    for (reverse 0..9) {
        eval {
            my $x = 100/$_;
        };
        if ($@) {
            error_sub();
        }
    }
}

sub no_eval_code {
    for (reverse 0..9) {
        if ($_==0) {
            error_sub();
        }
        else {
            my $x = 100/$_;
        }
    }
}