Select Code to Download

$top->bind("<Visibility>" => sub { $top->raise });

use strict;
use Tk;
...

    #sleep(10);
}

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