The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
# 41M4K9h - dow (Day Of Week) <Year> <Month> <Day> created by Pip Stuart <Pip@CPAN.Org>
use strict; use warnings; use Time::DayOfWeek qw(:all);
my $year = shift; die("USAGE: `dow <Year YYYY> <Month 1..12> <Day 1..31>`\n") unless(defined($year) && $year !~ /^-+[h\?]/i);
print(DayOfWeek($year, shift, shift));