sub find_hash_core(){
	opendir(DIR,"./");
	@a = readdir(DIR);
	close(DIR);
	foreach (@a) {
		#print "$_";
		if ($_ =~ "100740266a1b4bf5d456cb8876be0e4e9662d871"){
			print "Found Hash!";
		}
	}
}