#!/usr/bin/perl
use Tk;
use strict;
use warnings;

my $top = new MainWindow;

keep_on_top($top);

MainLoop;

sub keep_on_top {
    my $w = shift;
    
    my $toprepeater = $w->repeat(10,
      sub{ 
              $w->deiconify;           
              $w->raise; 
   });

}