while(-s $file ) {
  open(TF,$file) || last ;
  seek(TF,$curpos,0);
  @lines=<TF>;
  $cursorposition = tell(TF);
  last if ((stat(_))[7] < $cursorposition);
	foreach $nline (@lines){
	$newline = substr $nline, 24;
	# write out to tailfile	$newline
	}	
  close(TF);
  sleep 1;
}
}
else
	{ sleep 5; }
}