";
#print Dumper($string);
#$m->flush_buffer;
#$m->abort;



% if ($string ne ''){
	

	

	

	    

	    Enter your keywords: 
	    
	    

	     
            
	
	
	

	

% 	my @array = `grep -rli "$string" $root*`;
<%doc><%perl>
print "
";
print Dumper(\@array,$string,$root);
$m->flush_buffer;
$m->abort;

% 	foreach (@array){
%		if ($_ ne $root."autohandler\n"){
%		my $filename;
%	($filename) = ($_=~/.*\/(.*)$/);
%			print "$filename
";
%		}
%	}
	
	
	
	
%}else{
	
	<& footers/footer.htm &>
	

	

            

	    Enter your keywords: 
	    
	    

	     
            
	
	
	
% }