my @files = split /\n/, `ls -rtl $dir`;
system ("rm","$dir/$_") for @files[0..9];