use Date::Manip qw(ParseDate UnixDate);

#examples giving epoch seconds
$date = ParseDate("last month");
$date = ParseDate("yesterday");
$date = ParseDate("250 days ago");
$date = ParseDate("2nd tuesday in april");

#date formating example
$date = UnixDate($date, "%d-%m-%Y");
...
...