Select Code to Download

use warnings; use strict;
use Date::Manip::Date 6.30; 
...
my $thirty_ago = $today->calc($today->new_delta("-30 days"));
print $thirty_ago->printf("Thirty days ago from today is: %Y-%m-%d\n")
+;
__END__

Today is: 2014-04-18
A month ago from today is: 2014-03-18
Thirty days ago from today is: 2014-03-19