Miscellany

sub getday{
        my $month=shift;
        my $day=shift;
        my $year=shift;
        my $a = (14-$month)/12;
        my $y = $year-$a;
        my $m = $month+12*$a-2;
        my $d;
        if (($year<1752)||(($year==1752)&&($month<9))){
                $d=(5+$day+$y+$y/4+(31*$m)/12)%7;
        }
        else{
                $d=($day+$y+$y/4-$y/100+$y/400+(31*$m)/12)%7;
        }
        return $d;
}