-command => sub { 
                      #$top->withdraw;
                      $top->UnmapWindow;

                      my $timer = Tk::after(2000,
                        sub{
                      
                       #$top->deiconify;  # throws a  tcl warning
                          $top->MapWindow;
                      
                      });