#!/usr/bin/perl -I/opt/SUNWstade/lib
use FCGI;
use Html;
use System;
System->set_home("/opt/SUNWstade");


while (FCGI::accept() >= 0) {
   print "Content-type: text/html\n\n";
   print "<b>FILE</b><br>";
   print "\n\n counter = $n <br>";
   for $x (keys %ENV) {
     print "$x = $ENV{$x}<br>";
   }
   $n++;

}



