Select Code to Download

use DateTime;

...
print  substr( $dt->year, -2 ), 
       $dt->month < 10 ?  '0' :  '', 
       $dt->month;

perl -MDateTime -e 'print
                    unpack( 
...
                           DateTime->now(time_zone => 'UTC')
                           ->add(days => 13)
                    );'