#! /usr/bin/perl -w

use strict;
use Date::Manip qw(ParseDate);

print ParseDate("1 day ago") . $/;
print ParseDate("7 days ago") . $/;
print ParseDate("14 days ago") . $/;