use strict; use warnings; use Time::Piece; use Time::Seconds qw/ ONE_DAY /; my $stamp = ('2025-06-30 14:40:26'); my $tp = Time::Piece->strptime (substr ($stamp, 0, 10), '%Y-%m-%d'); my $dayssince = (localtime() - $tp) / ONE_DAY; if ($dayssince < 20) { print "20 days havent passed\n"; } else { print "20 days have passed\n"; }