>perl589\bin\perl -wle"{ my $s='test'; sub f { print 's: ', eval '$s' } } f()"
Use of uninitialized value in print at -e line 1.
s: 

>perl5100\bin\perl -wle"{ my $s='test'; sub f { print 's: ', eval '$s' } } f()"
Variable "$s" is not available at (eval 1) line 2.
Use of uninitialized value in print at -e line 1.
s: