# 37
sub xmas3 {
    use Date'Manip;Date_DayOfWeek+5,1,pop
}

# 39
sub xmas4 {
    use Date'Calc':all';Day_of_Week+pop,5,1
}