#!/usr/bin/perl -w
use CGI qw(:standard);

my $goodies;
foreach my $key (param) {
  $goodies .= $key . " => " . param($key) . "<br>\n"; 
}

print 
  header,
  start_html,
  "<h1>Unable to process directive.</h1>",
  p,
  hr,
  p,
  "That messag up there is jut to fool you.",
  "If this were a serious exploit, 
   you wouldn't see this part - but our program can see your cookie...<br>\n",
  $goodies,
  end_html;