use warnings;
use strict;
package Package;

my $Val;

sub import {
    Val = qw/some_val/;
    my $caller = caller;
    no strict qw/refs/;
    *{"$caller\::VAR"} = *Val;
}

1;

##</code><code>##

use Package;
our $VAR;

warn $VAR;

##</code><code>##

use Package;
our ($VERSION, $VAR);

warn $VAR;

##</code><code>##

use package;
our ($VAR, $VERSION);

warn $VAR;