#!/usr/bin/perl  use strict;  use warnings;  use Tk;  my $mw = tkinit();  my $top = $mw->Toplevel();  $top->Button(-text => 'MW wiederherstellen',               -command => sub { $mw->deiconify; $mw->raise; } )->pack();  $mw->after(5000 => sub { $mw->withdraw } );  MainLoop;