c:\@Work\Perl\monks>perl -wMstrict -le
"use strict;
 use warnings;
 use feature 'say';
 ;;
 Foo->test('xxx');
 ;;
 {
   package Foo;
   ;;
   my $variable = 'bar';
   ;;
   BEGIN { say __PACKAGE__ . qq{::begin $variable}; }
   ;;
   sub test { say $_[0], $_[1], $variable; }
   }
 ;;
 Foo->test('yyy');
"
Use of uninitialized value $variable in concatenation (.) or string at -e line 1.
Foo::begin
Use of uninitialized value $variable in say at -e line 1.
Fooxxx
Fooyyybar