#!/usr/bin/perl 
# consent.cgi
use CGI::Carp 'fatalsToBrowser';

use strict;
use warnings;
use CGI qw(:standard);
use Fcntl ':flock';
...