www.pudn.com > jse.zip > search.pl

#!/usr/bin/perl 
 
# It is a complete Java Search Engine interface. 
# It is just 5 strings, because server is using XSLT transformation,  
# so there is no XML parsing code in this program. 
# 
 
 
use LWP::Simple; 
print "Content-type: text/html\r\n\r\n"; 
$content = get("http://localhost:6789/q?".$ENV{'QUERY_STRING'}); 
print $content;