#!/usr/bin/perl -w

use strict;
use File::Find;

my @files = ();
my @paths = ();
my $dir = '/home/kurtw/perlmonks/test5';

find(\&_filewanted, $dir);

for my $file ( @files ) {
 if (unlink $file) {
 print "removing $file\n";
 } else {
 print "could not unlink $file\n";
 }
}

sub _filewanted {
 if ( ((-M $_) > 2) && -f $_  ) { # files, not directories
 push @files, $File::Find::name;
 }
}