Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use Date::Calc qw(Add_Delta_Days);
...
    sprintf '%d%02d%02d',
      Add_Delta_Days( $_[0] =~ /(\d{4})(\d{2})(\d{2})/, $_[1] );
}

Select or download this
```
20120609
```