Select Code to Download

                               This document is
...
                                can be found in
                                    perltoc.

#!/usr/bin/perl
BEGIN {(*STDERR = *STDOUT) || die;}
...
}

__END__

The tuit as is after 1 adjusts:

...
                                  found    in
                                   perltoc.