#! perl
use strict;
use warnings;
use Benchmark qw( cmpthese );

cmpthese
(
    1e7,
    {
        return_value => 'exit(1) if undef_on_error()',
        exception    => 'eval { die_on_error(); }; exit(1) unless $@;',
    }
);

sub undef_on_error
{
    return;
}

sub die_on_error
{
    die 'exception';
}