($wday) = (split '\s' , scalar localtime)[0];