perl -MTime::Piece -we 'print localtime->day_of_week'