Help for this page
>perl -wMstrict -le "sub S { return 'Something' } ... print qq{after eval: $foo}; " after eval: bar