my @epoch = localtime $stat9;
....
    if ($^O =~ /mswin/i && $epoch[8] == 1) {
       @epoch = Date::Calc::Add_Delta_DHMS(@epoch[0..5],0,1,0,0);
   ...;