use already executes at the same time as BEGIN. So while moving CGI::Carp higher is good, there's no need to use BEGIN.

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

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