use strict;
use warnings;
use feature 'say';

Foo->test();

{
    package Foo;
    
    my $variable = "bar";
    
    BEGIN { say __PACKAGE__."::begin $variable"; }
    
    sub test {
        say $variable;
    }
}