Select Code to Download

sub dayofweek {
  # 0=Sunday .. 6=Saturday
...
      localtime(POSIX::mktime(0,0,0,1,$mon,$year) - 3600*3);
  return $mday;
}

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