Help for this page
#! /usr/bin/perl ... printf "%04d-%02d-%02d\n", $year, $month, $day; ($year, $month, $day) = Add_Delta_Days($year, $month, $day, 7); }
my %day = qw( Sun 0 ... ); ($year, $month, $day) = Add_Delta_Days($year, $month, $day, (7 + $day{ +Mon} - $dow) % 7);