Select Code to Download

use strict;
use Tk;
...
    $widget->destroy if $widget != 0;
    $widget = $frame->Label(-text => $txt)->pack;
}