#!/usr/local/bin/perl -w
use File::Find;
find(\&wanted,'.');
sub wanted
{
return unless -f $_;
if ($_ eq 'core' || /(%|~|\.(bak|bck|old|undone|orig))$/)
{
warn "$File::Find::name\n";
chmod(0666,$_) unless -w _;
unlink($_) || warn "Cannot delete $File::Find::name\n";
}
}
__END__