Help for this page
perl -e "use Date::Calc qw(Add_Delta_YMD); ($year, $month, $day) = Add +_Delta_YMD(2003, 8,1,0,-1,0); print qq($month/$year)" 7/2003