in reply to Run in eval and out of eval

$ perl -wE 'say $^S; eval {say $^S}'
0
1
$

[download]
Grepping for eval in man perlvar would have gotten you the answer.

In Section Seekers of Perl Wisdom