Если вы считаете, что 2011-06-27T01: 05 менее чем на один день старше, чем 2011-06-28T01: 00,
use DateTime;
my $epoch = '1308715355';
my $dt_ref = DateTime->from_epoch(epoch => $epoch, time_zone => 'local');
my $dt_now = DateTime->now(time_zone => 'local');
$dt_ref->add(days => 1);
if ($dt_ref <= $dt_now) {
# At least one day old.
}
Если вы считаете, что 2011-06-27 на один день старше, чем 2011-06-28, независимо от времени дня,
use DateTime;
my $epoch = '1308715355';
my $dt_ref = DateTime->from_epoch(epoch => $epoch, time_zone => 'local')
->truncate( to => 'days' );
my $dt_now = DateTime->today(time_zone => 'local');
$dt_ref->add(days => 1);
if ($dt_ref <= $dt_now) {
# At least one day old.
}
Upd : исправление ошибки грамматики: s / старше / старше /