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;