This is a test

$server->RegisterURL("/foo/bar.pl",\&test); sub test { my $req = shift; # Net::HTTPServer::Request object my $res = $req->Response(); # Net::HTTPServer::Response object $res->Print("\n"); $res->Print(" \n"); $res->Print(" This is a test\n"); $res->Print(" \n"); $res->Print(" \n"); $res->Print("

\n");

      foreach my $var (keys(%{$req->Env()}))
      {
          $res->Print("$var -> ".$req->Env($var)."\n");
      }
      
      $res->Print("

\n"); $res->Print(" \n"); $res->Print("\n"); return $res; }