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

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

# ........