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