Select Code to Download

use Date::Calc qw( Today Add_Delta_Days ) ;

my $expiry_date = sprintf "%04d-%02d-%02d", Add_Delta_Days( Today, 14 
+) ;