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

That won't work correctly at the beginning of the month.

$ perl -le'                                  
my @date = split / /, localtime 1228636800;
                                  
print qq|$date[4] $date[1] $date[2] $date[3]|;
'
00:00:00 Dec  7
[download]