#!/usr/bin/perl

use strict;
use Data::Dumper;

$|++;

use CGI qw(:cgi-lib :standard);

print
	header,
	start_html('Incident Reporter'),
	h1('Thank you'),
	h4('Thank you for your incident report. The appropriate authorities have been notified.'),
	p({align => 'center'}, a({href => '/hilis4'}, 'Continue &#187;') ),
	end_html;

## save params & env:
open ERRLOG, '>>'.'../../logs/crash-reporter.log' or warn $!;
# param("\$ENV{$_}", $ENV{$_}) for keys %ENV;

$CGI::Q->save(\*ERRLOG);