redo in perl to read a config file