use strict;
use warnings;

use Date::Format;
#use Date::Calc qw(Add_Delta_Days);  ##not needed

my $date = sprintf(time2str("%D", time));
print $date;  # 01/19/24