for(;;) {

while(<FH>) {
$textbox->insert('end', $_);
$textbox->yviewScroll(1, "units");
#print substr($_,0,5);
$test = $_;
if (substr($_,0,5) eq "\>info") {last;}
}
#sleep $DELAY;
$mw->update;
if (substr($test,0,5) ne "\>info") {
seek(FH, 0, 1);}
}
}