Select Code to Download

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

package Shortcuts;
 
...
}
 
1;

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