Isn't this what use vars is for?
In reply to Re: Default Scope Behaviour by epoptai in thread Default Scope Behaviour by NeoPerl