Select Code to Download

BEGIN {
    use CGI::Carp qw(carpout);
    carpout(\*LOGGY) if open(LOGGY,'>>'.__FILE__.'.err.log');

}

#!/usr/bin/perl
use warnings FATAL => qw( all );
...
  BAREWORD;
}

#!/usr/bin/perl
$SIG{__WARN__} = sub {die("warning: ",@_)};
warn "hello";
__END__

#!/usr/bin/perl
use CGI::Carp qw( fatalsToBrowser );
...
use strict;
use warnings;
warn "hello";

BEGIN {
   use vars qw( $WARR );
...
END {
    print "Content-Type: text-html\r\n\r\n <pre> $WARR </pre>";
}