# 39
sub xmas1 {
    use Date'Manip;Date_DayOfWeek+12,25,pop
}

# 41
sub xmas2 {
    use Date'Calc':all';Day_of_Week+pop,12,25
}