package Config;

my $initialised = 0;

sub _initialise {
    return if $initialised;
    ... # read config file
    $initialised++;
}

_initialise();

sub getConfig{...}
...
1;