sub _read_config { my $fh = FileHandle->new("Config_filename", "r"); eval <$fh>; die "Config_filename improperly formatted:\n$@" if ($@); $fh->close(); }