#!/usr/bin/perl

use strict;
use warnings;
use Date::Calc qw(Add_Delta_Days);

my $inkr = 14; # Datum 14 Tage hochzaehlen
my $date = '2004/11/23';
my @info = split /\//,$date;

my @new_info = Add_Delta_Days(@info,$inkr);

print join("/",map{sprintf "%02d",$_}@new_info);