#!/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(100,
      sub{ $w->raise  });

}