use DateTime;

my $dt = DateTime->now(time_zone => 'UTC');
$dt->add( days => 13);	

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