my $outfolder = join '_', 'REPORT', 'output', $year, $mon, $mday, '', $hour, $min, $sec;