open(CONFIG, "$file") or die qq(Can't open "$file" for reading);
foreach $line (<CONFIG>) {
    eval qq($line) or die qq("$line" is not valid code!);
}