C:\Users\user>perl -we "use Time::Piece;print localtime->day_of_week"
5