File set_in_importing_script_1.pl

use warnings;
use strict;

use MyPackage;

print $MyPackage::var;
[download]

File MyPackage.pm

# MyPackage.pm

package MyPackage;

use warnings;
use strict;

use MyUtils;

1;
[download]

File MyUtils.pm

# MyUtils.pm

package MyUtils;

use warnings;
use strict;

{   no strict 'refs';

    my $importing_package = (caller 0)[0];

    ${ $importing_package . '::var' } = 42;

    }

1;
[download]

c:\@Work\Perl\monks\TerryBerry>perl set_in_importing_script_1.pl
42
[download]