> perl -MDate::Manip -e 'print UnixDate(ParseDate("October 2nd"), "%Y-%
m-%d"), "\n"'
2001-10-02

> perl -MDate::Manip -e 'print UnixDate(DateCalc("October 2nd", "+ 20 days", \$err), "%Y-%m-%d"), "\n"'
2001-10-22

> perl -MDate::Manip -e 'print UnixDate(ParseDate("today"), "%Y-%m-%d")
, "\n"'
2001-09-28

> perl -MDate::Manip -e 'print UnixDate(ParseDate("10 days"), "%Y-%m-%d
"), "\n"'
2001-10-08

> perl -MDate::Manip -e 'print UnixDate(ParseDate("10 days ago"), "%Y-%
m-%d"), "\n"'
2001-09-18

> perl -MDate::Manip -e 'print UnixDate(ParseDate("Monday 1 week ago"),
 "%Y-%m-%d"), "\n"'
2001-09-17