... which implies that the global variable $shbstatus was not restricted by the use strict call inside the first BEGIN block.

Why not?

strict is block scoped, so its effect stops at the end of the BEGIN block.

The following works:

use strict;
use warnings;


my $shbstatus;


BEGIN {
    $shbstatus = (-f "C:/shb") ? 1 : 0;
}


END {
    $shbstatus  ? print "shb identified\n"
                : print "shb was not identified\n";
}


print "XYZ\n";
print "$shbstatus\n";
[download]

Update: Things happen in the following order:

• use strict; is compiled.
• use strict; is executed. [*]
• use warnings; is compiled.
• use warnings; is executed. [*]
• my $shbstatus; is compiled, which creates $shbstatus.
• BEGIN { ... } is compiled. Closes over $shbstatus [**].
• BEGIN { ... } is executed.
• END { ... } is compiled. Closes over $shbstatus [**].
• print ... is compiled.
• my $shbstatus; is executed, which does nothing.
• print ... is executed.
• END { ... } is executed.

[*] It'll affect the current block (which is the current file) and nested blocks (which includes the BEGIN and END blocks, and sub definitions, loops, etc). It will *not* affect modules used/required by these blocks or subs called by these blocks.

[**] When a sub closes over a variable, it means the variable will be available to the sub (including special subs BEGIN and END) when the sub is executed, even if the variable is no longer in scope. Search for documentation on closures for more detail.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.