Select Code to Download

#!/usr/bin/perl

use 5.10.1;
...
    my $date2 = DateCalc($date1, '-0:0:-0:1:0:0:0', \$err, 1);
    print "date: $date1     date-1d: $date2    err=$err\n";
}

Date::Manip version 6.11

...
date: 2011110100:00:00     date-1d: 2011103100:00:00    err=0
date: 2011103100:00:00     date-1d: 2011103001:00:00    err=0
date: 2011103000:00:00     date-1d: 2011102900:00:00    err=0