You're reentering perl unsafely. Rather than have the signal handler try to update the window, have it set some kind of variable, and then test/act on that in an idle task. (See Tk::Widget $widget->idletasks).