Help for this page
perl -E "say qq(we are ),(localtime(time))[4]<=3?qq(BEFORE):qq(AFTER), +qq( 1st of May)" we are AFTER 1st of May