# debug mode
BEGIN {
    use CGI::Carp qw(carpout fatalsToBrowser);
    &carpout (\*STDOUT);
}

##</code><code>##

package Shortcuts;
 
use strict;
use diagnostics;
use vars qw(@ISA @EXPORT $VERSION);
use subs qw(debug);
use Exporter;
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(debug);
 
sub debug {
                use CGI::Carp qw(carpout fatalsToBrowser);
                &carpout (\*STDOUT);
}
 
1;

##</code><code>##

#!/usr/bin/perl -wT
 
use strict;
use Shortcuts;
# debug mode
BEGIN {&debug}