johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -MTime::Piece -E '
my $now = localtime();
my $may = Time::Piece->strptime( qq{@{ [ $now->year() ] }/05/01 00:00:00}, q{%Y/%m/%d %T} );
say
   $now->epoch() < $may->epoch()
   ? q{Before 1st May}
   : q{After 1st May};'
After 1st May