Select Code to Download

#!/usr/bin/perl -w

...
        my $result = sprintf "$count iteration$s so far...\n";
    }
}

[liverpole@diamond<28>]% benchmark.pl
timethis 2000000: 25 wallclock secs (20.27 usr +  0.05 sys = 20.32 CPU
+) @ 98425.20/s (n=2000000)
timethis 2000000: 19 wallclock secs (17.12 usr +  0.01 sys = 17.13 CPU
+) @ 116754.23/s (n=2000000)