/usr/bin/perl use strict; use warnings; use 5.020; package A; my $test = 42; say $test; 1; package main; say $test;