Mit fileevent() kannst du ein Filehandle oder ein Socket beobachten ob was lesbares da ist, da sollte dann auch nichts haengen.
siehe
perldoc Tk::fileevent