use File::Find;
my $dir = "C:\\Users\\Public\\ABCD\\Core\\sdk\\PAT";

find(\&myfile, $dir);

sub myfile{
	
my $file = C:\\Users\\Public\\ABCD\\Core\\sdk\\PAT\pat.xml";   
	
	if(-e $file){
		
		
		print "Exists";
		
	}
	else{
		
		
		print "Doesn't exits";
		
	}
	
}