How to calculate a date a week ago from today

Question

I wanna calculate the date a week ago from today with a specific format and put it in to a variable. For example, today is Nov 21st. 2014, and I wanna print out

Answer 1

This is very simple using Date::Manip

    use Date::Manip;
    my $today = ParseDate("today");
    my $weeksago = DateCalc($today,"-7d");