01  $COUNTER++;
02 
03  my $r = Apache->request;
04  my $remote_browser = $r->header_in('User-Agent');
05  my $connection = $r->connection();
06  my $remote_host = $connection->remote_host() ||
07      $connection->remote_ip();
08  output($r,$remote_host,$remote_browser);
09  
10  sub output {
11      my ($r,$host,$browser) = @_;
12      $r->content_type("text/html");
13      $r->send_http_header();
14      $r->print(<<END);
15  <HTML><HEAD><TITLE>Simple Test</TITLE></HEAD>
16  <BODY>
17  <H1>Simple Test</H1>
18  Hello.  I see that you are using the <I>$browser</I> browser and are
19  calling from <I>$host</I>.
20  <P>
21  Did you realize that this script has been called
22  <STRONG>$COUNTER</STRONG> times (process ${$})?
23  <HR>
24  </BODY>
25  </HTML>
26  END
27      ;
28  }