#!/usr/bin/perl --
use strict; use warnings;
use autodie;
use File::Find::Rule;
my @conv = find( file => name => qr{\.conv$} => in => $startdir );
for my $file ( @conv ){ eval { unlink($file) } or warn $@ }