- or download this
package Config_m;
use Config;
...
$tied->{mydomain} = 'new value';
1;
- or download this
use Config_m;
use Config;
print $Config{mydomain};
# outputs 'new value'
- or download this
use Config;
$obj = tied %Config;
...
print $Config{mydomain}, "\n";
#outputs 'new value'