#!/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;