#! /usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);
[...]