Select Code to Download

Use Date::Manip;
print UnixDate(ParseDate('next thursday'),'%A %e %b %Y'),"\n";

           Rate   Manip    bfdi ikegami    Calc
Manip     216/s      --     -7%    -99%   -100%
bfdi      231/s      7%      --    -99%   -100%
ikegami 29540/s  13596%  12701%      --    -65%
Calc    84063/s  38874%  36327%    185%      --

use strict;
use warnings;
use Benchmark qw(cmpthese);
...
  Calc    => \&Calc,
  } );