# config.pl


open(FILEHANDLE, "config.txt");



$values = {};




while ($line = <FILEHANDLE>) {

  $line =~ /^([^=]+)=(.*)/;

  $values{$1} = $2;

}