http://www.perlmonks.org?node_id=471273


in reply to Can I force strictness on included files?

This is not an answer to your question, but rather a related observation. Here's the relevant section of the docs for do (my emphasis):

  • do EXPR

    Uses the value of EXPR as a filename and executes the contents of the file as a Perl script. Its primary use is to include subroutines from a Perl subroutine library.
    do 'stat.pl';
    is just like
    eval `cat stat.pl`;
    except that itís more efficient and concise, keeps track of the current filename for error messages, searches the @INC libraries, and updates %INC if the file is found. … It also differs in that code evaluated with "do FILENAME" cannot see lexi≠cals in the enclosing scope; "eval STRING" does.
It may not be not entirely obvious, but the underlined sentence implies that, despite the similarity of the two constructs, with do 'stat.pl' strictures are not enforced, but they are with eval `cat stat.pl`.

In the following example, the file x.pl contains only the line $x = 1;

# y.pl use strict; use warnings; use diagnostics; do 'x.pl'; print 'do: ', +( $@ ? $@ : 'ok' ), "\n"; eval `cat x.pl`; print 'eval: ', +( $@ ? $@ : 'ok' ), "\n"; __END__ do: ok Variable "$x" is not imported at (eval 2) line 1 (#1) (F) While "use strict" in effect, you referred to a global variabl +e that you apparently thought was imported from another module, because something else of the same name (usually a subroutine) is exported + by that module. It usually means you put the wrong funny character o +n the front of your variable. eval: Global symbol "$x" requires explicit package name at (eval 2) li +ne 1.

So you'll need to use eval instead of do if you want strictures, but you'll have to check $@ yourself after the eval.

the lowliest monk