How do you use benchmarking (Benchmark module) with a short example?

This page provides a short example of how to use the Benchmark module in Perl for performance testing.

Benchmark, Perl, Performance Testing, Code Optimization


use Benchmark qw(:all);

# A simple example subroutine to benchmark
sub example_sub {
    my $sum = 0;
    for my $i (1..10000) {
        $sum += $i;
    }
    return $sum;
}

# Using timethese to benchmark the subroutine
timethese(1000, {
    'example' => \&example_sub,
});

Benchmark Perl Performance Testing Code Optimization