Select Code to Download

#!/usr/local/bin/perl

...

        }
MainLoop;

#the steps in the refresh were to enable a disabled widget and destroy
+ a created #widget, these two behaviors can be kept under a button to
+ work simultaneously

$listButton->configure(-state=>'normal');
$listTag->destroy if Tk::Exists($listTag);