Select Code to Download

#! /usr/bin/perl -w

use strict;
...
  'via_posix'   => \&via_posix,
  'via_sprintf' => \&via_sprintf,
});

$ perl filename 200000
via_concat:  2002091114542256876
via_anonsub: 2002091114542256876
...
 via_concat: 21 wallclock secs (18.71 usr +  0.55 sys = 19.27 CPU)
  via_posix: 13 wallclock secs ( 9.59 usr +  0.62 sys = 10.20 CPU)
via_sprintf: 10 wallclock secs ( 6.67 usr +  0.39 sys =  7.06 CPU)

via_concat:  2002091114275977636
via_anonsub: 2002091114275977636
via_posix:   2002091114275977636
...
via_sprintf 44919/s         48%          --        -15%        -26%
via_anonsub 53156/s         75%         18%          --        -13%
via_posix   60954/s        100%         36%         15%          --