my $dt = DateTime->now;
print "system date ", $dt->strftime( "%m-%d-%Y" );
my $compare = $dt <=> $other_date;
[download]

Note: $other_date must be a DateTime object