use Time::Piece;

print localtime->wdayname;