Select Code to Download

use strict;
use warnings;
...

f();
g();

>perl589\bin\perl test.pl
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 9.
...
>perl5100\bin\perl test.pl
f: test
g: test

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