#! /usr/bin/perl
use strict;
use warnings;

use 5.020;

{ # Beware: Package enclosed in Block
package A;

my $test = 42;
say $test;

1;
}
package main;

say $test;