# Collection of code snippets by Arne Vajhøj 
# posted to eksperten.dk, usenet and other places (2002-now) 
use Date::Manip;

Date_Init("TZ=EST");

my $s1 ="2009-06-05";
my $dt1 = ParseDateString($s1);
my $dt2 = DateCalc($dt1, "30 days");
my $s2 = UnixDate($dt2, "%Y-%m-%d");

print $s2, "\n";
