#!/usr/bin/perl
use Tk;

$mw = tkinit;
$t = $mw->Toplevel;
$t->withdraw;
$t->Label(-text => "Testing...")->pack;
$t->Button(
   -text => "Withdraw",
   -command => sub {$t->withdraw},
)->pack;
$t ->overrideredirect(1); #to top on all virtual desktops 

$mw->Button(
   -text => 'Test',
   -command => sub {
       $_->deiconify, $_->raise for $t;
   },
)->pack;

MainLoop;

##</code><code>##

#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__