sub dayofweek { (localtime $_[0])[6] }