Select Code to Download

#! perl -slw
package Tie::Hash::Config;
...
keys can contain spaces too.
key2=value2
key3= =

use Tie::Hash::Config;

...
    while my($key, $value) = each %( $section };

# etc