Also Time::Piece

use Time::Piece;
my $date1 = Time::Piece->localtime();
my $date2 = Time::Piece->strptime( $args{date}, "%Y-%m-%dT%H:%M:%S" );

if ( $date2 > $date2 ) { # do something };

my $diff = $date1 - $date2; # in seconds
my $days = $diff->days
[download]