#or
for $files(
  map{ unpack'x4a*',$_ }
  sort
  map{pack 'Na*',(stat "x:/$_")[9],$_}
  readdir(root)
){
  print "$files\n"; 
}
[download]