Einfach so:

our $var = undef;

Damit ist $var im ganzen Paket sichtbar. Ansonsten ist $var nur ausserhalb von sub sichtbar.