#!/usr/bin/perl

open STDERR, ">>errors"
    if $ENV{SERVER_SOFTWARE} =~ m/^mini_httpd/;

use strict;
use warnings;

use CGI::Carp;
use CGI;

warn "This is a warning";

print CGI->header;
print "Hello";
print "<br>$_ : $ENV{$_}\n" for keys %ENV;