sub module{
	my $File1 = $File::Find::name;
	$File1 =~ s,/,\\,g;
	if ( $File1 =~ /.+\.doc/i)	{
		open FILE, $File1 ;
		if ( grep /$variable/, <FILE> )	{ 
			$FOUND = 1;
			$FUN1 = $_;
		}
		close FILE;
	}
}
return 1;