#!/usr/bin/perl


use Date::Manip;

$date = ParseDate("2 days ago");
print $date