use strict;
use warnings;

use Date::Calc qw(Add_Delta_Days);

my ($year, $month, $day);

($year, $month, $day) = Add_Delta_Days(2005,8,24,3);
printf "%02d/%02d/%4d\n", $day, $month, $year;

($year, $month, $day) =  Add_Delta_Days(2005,8,24,10);
printf "%02d/%02d/%4d\n", $day, $month, $year;