# Collection of code snippets by Arne Vajhøj 
# (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and 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";
