use File::Find::Rule qw/ find rule /;
my @files = find( file => grep => qr{\Q$name\E}, in => $dir );
my $cname = $files[0];