@ARGV = 'c:/temp/';
use File::Find ();

sub find(&@)
{
	 &File::Find::find
}

*name = *File::Find::name;

find
{
    if ((-f $name) && ($name=~m#^.+/\QFile.txt\E$#i))
    {
			print "\nFile.txt Found.\n\nExited !!!";
			exit;
	}
} @ARGV;