#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
my $dt = DateTime->now( time_zone => 'Asia/Tokyo' );
my $expire = $dt->add( months => 3 );
print $expire->ymd, "\n";
printf "[%s] ", $dt->strftime('%Y-%m-%d %H:%M:%S');
$ ./datetime.pl
2009-12-07
[2009-09-07 09:10:30]