Select Code to Download

use Storable;
tie $hashref, "Tk::Listbox", $lbox, {'ReturnType' => 'both'};
store $hashref, 'file';
...
$hashref = retrieve('file');

use Storable;
@columninfo = $mlistbox->columnPackInfo();
store \@columninfo, 'file';

# "-anchor" specifies how the information in a widget (e.g. 
# text or a bitmap) is to be displayed in the widget. Must 
# be one of the values n, ne, e, se, s, sw, w, nw, or 
...
# of the widget. 

$mlistbox->configure(-anchor => 'e'); # or 'center'