use Date::Manip;
$main::TZ = "CET";

my $ds = '2003/10/19'; # it's a sunday
my $d  = &ParseDate( $ds );
print "$ds = $d \n";

my $d2 = &DateCalc( $d,"+ 3hours 12minutes 6 seconds", \$err);  
print "$d2\n";

my $d3 = &DateCalc( $d,"+ 5 business days", \$err);  
print "$d3\n";