#from comp.lang.perl.tk
#The following works, at least with KDE 2. I would be glad to #here success reports for KDE 3.
#Regards, Slaven  Rezic

use Tk;
$top = new MainWindow;
keep_on_top($top);
MainLoop;

sub keep_on_top {
    my $w = shift;
    my($wrapper) = $w->toplevel->wrapper;
    $w->property('set', '_NET_WM_STATE', "ATOM", 32,
		 ["_NET_WM_STATE_STAYS_ON_TOP"], $wrapper);
}

__END__