use strict; use warnings; use Benchmark qw/:all/; use DateTime::Format::Strptime; use DateTime::Format::MySQL; use Time::Piece; use Time::Piece::MySQL; my $strp = DateTime::Format::Strptime->new( pattern => "%Y-%m-%d %H:%M:%S" ); cmpthese(…