use Tk;
my $mw = tkinit;
$mw ->update;
$mw->attributes(-toolwindow => 1,
                -topmost => 1);
 MainLoop();