perl tk абдейт label
 

вообщем есть такой код

$pr->Label(-text => "Записи-->base.txt:".hay('base.txt')." good.txt:".hay('good.txt')." ftps.txt:".hay('ftps.txt')." good_ftp.txt:".hay('good_ftp.txt') , -font => '{Tahoma} 7 bold',-foreground=>'red')->pack(-side => "top" ,-anchor => 's');

он отображает количество записей в том или ином фале через саб который и возвражает нужное значение

в процессе работы проги это значение меняется --- я вот застрял немогу сделать обновление инфы в этом лейбле -- например прога поработала дописала чтонить в файл good.txt и нужно потом заново прогнать этот лейбл для отображения нового количества записей ---

жду вашего совета

perldoc Tk
perldoc Tk::Label

мда --- читал апдейт не катит -- уже вроде все пересмотрел =(