Q:\>perl -wle "my $foo; sub f { $foo = return 'bar' }; f(); print $foo"
Use of uninitialized value in print at -e line 1.


Q:\>perl -wle "my $foo='x'; sub f { $foo = return 'bar' }; f(); print $foo"
x