package ausgelagertes::modul;
use warnings;
use strict;

our $global = 'default';

sub foo {
    # nutze $global
}

1;


# ----- skript

use ausgelagertes::modul;

local $ausgelagertes::modul::global = 23;
ausgelagertes::modul::foo();