use Date::Manip
my $format = "%Y-%m-%d";
my $time = "1 day ago";
my $date = &UnixDate(ParseDate($time), $format);
print "$date\n";