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