Select Code to Download

  use Date::Calc qw(:all);

#!/usr/bin/perl
#
...
print "dow_first= $days[$dow_first]\n";
print "dow_last= $days[$dow_last]\n";

Undefined subroutine &main::Days_In_Month called at ./test.pl line 16.

:!./test.pl
Year = 2004
...
Day = 7
dow_first= Tue
dow_last= Wed