Select Code to Download

#!/usr/bin/env perl

...
duration: 0.872 seconds
number: 400000

sub task {
    my ($id, $val) = @_;
...
duration: 2.183 seconds
number: 400000

#!/usr/bin/env perl

...
duration: 20.343 seconds
number: 400000

sub task {
    my ($id, $val) = @_;
...
duration: 9.702 seconds
number: 400000