Select Code to Download

use warnings;

...
      use CGI::Carp qw(carpout);
      carpout(STDOUT);
}

# BEGIN {
#       use CGI::Carp qw(carpout);
#       carpout(STDOUT);
# }

script debug.txt;

REMOTE_USER=username perl myscript.pl param_1=x param_2=y param_3=z;

exit;