use Date::Manip;

my @dayOfWeek = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my ( $month, $day, $year ) = ( 5, 25, 2002 );
my $day = &Date_DayOfWeek( $month, $day, $year );
print $dayOfWeek[ $day ];