- or download this
use strict;
use warnings;
...
f();
g();
- or download this
>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
- or download this
>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: