#!/usr/local/bin/perl -ln
$[=1; $ten = 10; $"="\n"; 

if ($#topten < $ten)
{
    @topten = reverse sort (@topten, $_);
}
elsif ($_ gt $topten[$ten])
{
    $topten[$ten] = $_; 
    @topten = reverse sort @topten;
    print "\e[H\e[2J@topten"
}

# find -printf "%9k %p\n" 
# find -type f -printf "%AY-%Am-%Ad %p\n"