use strict; use warnings; use Tk; use Tk::ToplevelIcon; tkinit; MainLoop;