#!/usr/bin/perl -w 
use strict;
use CGI;
# more stuff
my $cgi = CGI->new();           # or however
my $verbose_debug=1;

barf_my_guts_out() if $verbose_debug;