In that case try

use Data::Dump qw/ dd pp /;
use File::Find::Rule;
my @files = find( file => name => qr/Cwd/, in => \@INC );
dd \@files;