use File::Find; find(\&wanted, '$file'); sub wanted { $rlfile = `find2perl / -name $file -exec ls {} \;`; }