$month = lc(substr(scalar localtime, 4, 4));