use Date::Manip;
print ParseDate("last Monday");