unlink(@files[0..9]);

##</code><code>##

#!/usr/bin/perl -w
use strict;
use File::Find;
my %age = ();
my $dir = $shift;

find(\&getFileAge, $dir);

# Sort the values of %age
my @files = sort {$a <=> $b} keys %age;

# Remove the files
foreach (@files[0..9]) {print qq($age{$_} $_\n);} # DEBUG - prints values
unlink @files[0..9] || warn "Couldn't remove $_\n"; # Removes files

sub getFileAge() {
 # This gives you the full path of the file without
 # having to append the dir name
 my $element = $File::Find::name; 
    
 if (-f $element) {
  my $temp_age = -M $element;
  $age{$temp_age} = $element;
 }
}