#!/usr/bin/perl

use warnings;
use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser carpout);

carpout(\*STDOUT);

...