Skip to content

Instantly share code, notes, and snippets.

@delphinus

delphinus/gist:1749045

Created February 6, 2012 02:32
Show Gist options
  • Save delphinus/1749045 to your computer and use it in GitHub Desktop.
Save delphinus/1749045 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
use Time::Piece;
#my $d = localtime(time);
my $d = Time::Piece->strptime('2012-01-01', '%Y-%m-%d');
print $d->add_months(3)->ymd . "\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment