File::Find example in perl

use File::Find ; 

use Cwd ; 

my $currentWorkingDir = getcwd;

my @filesToRun = ();

my $filePattern = '*.log' ; 

#add only files of type filePattern recursively from the $currentWorkingDir

find( sub { push @filesToRun, $File::Find::name  

if ( m/^(.*)$filePattern$/ ) }, $currentWorkingDir) ;

foreach  my $file ( @filesToRun  ) 

{

print "$file\n" ;   

}