#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
my $one_day = (24 * 60 * 60);
while (<DATA>) {
    chomp;
    my $day_ago =  strftime "%Y-%m-%d %H:%M:%S", localtime (time - $one_day);
    print "$_ is ", ( $_ gt $day_ago ? "recent" : "old" ) , $/;
}
__DATA__
2005-23-02 02:02:02
2006-02-25 15:52:35