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

we are AFTER 1st of May