{ my %config; sub new { if (not %config) { %config = read_config_from(__DATA__); } # Now create the object... } }