in reply to File::find question

You should probably use the wanted option. 
sub wanted { unlink $File::Find::name if $File::Find::name =~ /\.resul
+ts$/ }
find(\&wanted, @directories);

[download]

In Section Seekers of Perl Wisdom