my ($sec, $min, $hour, $mday, $month, $year, $wday, $isdst) = localtime(time);
return $wday;