my @stats = stat("$folder/$file");
    my @date = split / /, localtime $stats[9];
 
    my $date = qq|$date[4] $date[1] $date[2] $date[3]|;