#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DateTime;

my $thirty_days_ago = DateTime->today->subtract(days => 30);
say $thirty_days_ago;

__END__
2013-05-08T00:00:00