... since $foo is lexically re-declared in the assignment within the eval block (something that strictures would have warned you about).

>perl -wMstrict -le
"sub S { return 'Something' }
 my $foo = 'bar';
 eval { my $foo = S() };
 die $@ if $@;
 print qq{after eval: $foo};
"
after eval: bar
[download]