#!/usr/local/bin/perl require "analyze.pl"; print "Content-type: text/html\n\n"; print "\n"; print "Web Page Stats\n"; print "\n"; @today = `gzcat /var/log/httpd/access.log.0.gz | grep chucky`; analyze(@today); print "\n"; print "\n";