use Date::Calc qw(:all);
die "usage: month day year\n" if $#ARGV != 2;
($month, $day, $year) = @ARGV;

$dow = Day_of_Week_to_Text(Day_of_Week($year,$month,$day));
print "$month/$day/$year falls on a $dow\n";

($year, $month, $day) = Today();
print "$month/$day/$year is today\n";