Global symbol "$user_entry_don" requires explicit package name at ...
Execution of ... aborted due to compilation errors.

##</code><code>##

        $dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_don
+e = 1 unless($temp_var =~ m/^$/);})->pack;

##</code><code>##

        $dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_done = 1 unless($temp_var =~ m/^$/);})->pack;