sub gen_reportfile_name {
    my ($mday, $mon, $year) = (localtime)[3,4,5];
    $reportfile = sprintf '/dirhere/%4d%02d%02dtalkpath', $year+1900, $mon+1, $mday;
}