use Date::Manip;
my $day = UnixDate("May 21,1981", "%A");