Select Code to Download

use strict;
use warnings;
...

    unlink $TESTFILE;
}

$ perl benchmark
--- Test size: 500
...
is_sub   6.10/s       --     -13%     -18%
is_nosub 7.04/s      15%       --      -6%
fs_sub   7.46/s      22%       6%       --