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