my $working_dir = $ARGV[0];     # starting directory
my $extension   = $ARGV[1];     # extension to save

dedup($working_dir);
exit 0;

sub dedup {
    my $path = shift;
    my @files = glob("$path/*");
    print "Checking [$path] ...\n";

    foreach (@files) {
        dedup("$_") if (-d $_ && -x $_);        # recurse into subdirectories
        my ($base, $ext) = m/(.*)\.([^\.]+)$/;

        my @matches = glob("$base*");
        print "\tremoving: $_\n" if scalar @matches > 1 && $ext ne $extension;
#       unlink $_              if scalar @matches > 1 && $ext ne $extension;
    }
}