my ($mday,$mon,$year,$wday) = (localtime)[3..6];