Hier (FreeBSD) funktioniert es mit ein paar Tweaks (use Tk::StayOnTop; und use Tk qw(Exists) fehlt).

Aber leider gibt es ein Problem, wenn der Schatten-Balloon verschwindet. Dann erscheint wenig später der einfache Balloon wieder auf.