dt_bench.pl

use strict;
use warnings;
use Benchmark qw(:all);
use DateTime;

my $now       = DateTime->now();
my $last      = $now->clone->subtract(minutes => 10);
my $now_epoch = scalar time();

printf "%s\n", $now->strftime('%Y%m%d');
printf "%s\n", $now->ymd('');

cmpthese(
    100000, {
        "strftime" => sub {
            $now->strftime('%Y%m%d');
        },
        "ymd" => sub {
            $now->ymd('');
        },
        "sprintf" => sub {
            sprintf("%04d%02d%02d", $now->year(), $now->month(), $now->day());
        },
    }
);

__DATA__
              Rate strftime  sprintf      ymd
strftime  208333/s       --     -75%     -83%
sprintf   833333/s     300%       --     -33%
ymd      1250000/s     500%      50%       --