Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

...
my $day_name = Time::Piece->strptime("$year$month" . '01', '%Y%m%d')->
+fullday;

print "01-Oct-2013 is a $day_name";

Select or download this
```
01-Oct-2013 is a Tuesday
```