Решил тут написать гуй, но столкнулся с проблемой:
open FILE, "FILE.1"; $mw->fileevent(FILE,'readable',[\&PRINTER]); MainLoop; sub PRINTER{ $text=<FILE>; $textH -> insert('0.0', "$text"); }
проблема в том, что fileevent входит в бесконечный цикл.
плиз хелп, кто чем может.
