#!/usr/bin/perl print "Content-type: text/html\n\n"; $ie = 0; $net = 0; open(CMD, "tail -n 300 /usr/local/apache/logs/access_log |"); while($line = ){ if($line =~ /MSIE/){ $ie ++; } else{ if($line =~ /Gecko/){ $net ++; } } } close(CMD); print ""; print ""; print ""; print "";