use Time::gmtime;
print gmtime->wday;