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;