#!perl

use strict;
use warnings;

use CGI qw[:standard];

param()      or die "Need to provide a parameter\n";
param('err') or die "Need to provide error number\n";
print header,
      start_html('My error report'),
      "Hey, I got error ", 
      em(param('err')), p, 
      ". Great, isn't it?", 
      hr;