2012/5/5 Dmitry L. <dim0xff на gmail.com>: > DateTime + Try::Tiny? Проще: $ perl -MTime::Local -le 'print eval{timegm(0,0,0,20,1,2011)} ? 1 : 0' Потому что: $ corelist Time::Local Time::Local was first released with perl 5 -- maxim.vuets.name