Date::Manip, though I don't think this is really the way to go. DateTime is much more flexible and is quite good at date math.

perl -MDate::Manip -le 'print UnixDate(ParseDate("3 days ago"), "%A")'
# Friday
[download]