method fetch { if (!defined($data) || (my $age= -M $conffilename)) { # must (re)load the file my $conf= new Config::General:: (-ConfigFile => $conffilename, -UTF8 => 1); my %result= $conf->getall; $data= \%result; $fileage= $age; } return $data; }