package Config; our $initialised = 0; sub _initialise { ... # as before } BEGIN { _initialise(); } ... 1;