use File::Find;

$fullpath = `find $path/*/$file \;`;