For large directories I'd go for a Schwartzian transform
for the sort (named after Him, not by Him)

else

#!/usr/local/bin/perl -w

use strict;

my %File=map {$_,(stat)[10]} </home/choas/*>;
print "$_: $File{$_}\n" for sort { $File{$b} cmp $File{$a} } keys %Fil
+e;
[download]

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;