open (CONF, ">$conffile");
print CONF<<EOF
option1 = default text
option2 = other text
EOF
;
close CONF;

##</code><code>##

$config->define('option1', { DEFAULT => "default text" } );
$config->define('option1', { DEFAULT => "other text" } );

##</code><code>##

open (CONF, ">$conffile");
print CONF "option1 = ", $config->option1(), "\n";
print CONF "option2 = ", $config->option2(), "\n";
close CONF;

##</code><code>##

$config->option1('Specified through GUI');
&CreateConfigFile;