#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

our @ext = qw(.tmp .bak .$$$ .chk .old .gid
         .fts .ftg .log .dmp .--- .prv .temp);

sub wanted {
    my $dir = $_;
    -d && unlink map {glob "$dir/*$_"} @ext;
}
find (\&wanted, $dir);