use warnings;
use strict;

use MyPackage;

print $MyPackage::var;


##</code><code>##

# MyPackage.pm

package MyPackage;

use warnings;
use strict;

use MyUtils;

1;

##</code><code>##

# MyUtils.pm

package MyUtils;

use warnings;
use strict;

{   no strict 'refs';

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

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

    }

1;

##</code><code>##

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