#!/usr/bin/perl -w
use strict;

{
    package DEBUG;
    our $var = 'foo';
}

{
    package main;
    BEGIN { package Other; *main::var = \$DEBUG::var };
    #       ^^^^^^^^^^^^^   ^^^^^^
    print "Var is $var\n";
}
__END__
Var is foo

##</code><code>##

    BEGIN { package DEBUG; no strict 'vars'; *main::var = \$var };