my $Value = 666;
store( \$Value, 'param.ini' );
# The file viewed in Wordpad shows 'pst0	12345678�  '

my $pRPar = retrieve('param.ini');
$Value = $$pRPar;
print("$Value\n"); # Prints '666'

my $MainWindow = Tkx::widget->new('.');
my $Entry = $MainWindow->new_ttk__entry(-textvariable => \$Value);
$Entry->g_grid(-row => 1, -column => 1);
Tkx::MainLoop(); # Change the value into '111' and close the window
print("$Value\n"); # Prints '111', so this is OK. But...

store( \$Value, 'param.ini' );
# The file viewed in Wordpad shows now 'pst0	12345678Tcl::Var   Tcl��^    ::perl::SCALAR(0x3b54b38)'