Are you just trying to catch CGI.pm errors? If so, use:

use CGI;
use CGI::Carp 'fatalsToBrowser';

my $q = new CGI;
print $q->header;

# ........
[download]

--nutshell