#!/usr/bin/perl -w
use strict;
use Date::Calc qw/Day_of_Week/;

my @days = qw/Sunday Monday Tuesday Wednesday
              Thursday Friday Saturday/;

my $dow = $days[ Day_of_Week(2002, 5, 25) ];
print "$dow\n";
__END__