Select Code to Download

sub pop_user_entry{
        $temp_var = "";
...
        $dialog_top->destroy;
}

$dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_done = 1 un
+less($temp_var =~ m/^$/);})->pack;
$dialog_top->Entry(-textvariable=>\$temp_var)->pack;