-w;
require 'c:\perl\lib\find.pl';
use File::find;
find(\&wanted, 'c:\perlpractice');
sub wanted {
	
my $filename = "$File::Find::name"; 
	$file = $filename;
	 if (-M $file >= 3){	
		unlink $file; 
		$count++;
}
}

$count = '0' if $count == "0 ";
print "$count files were successfully deleted.";