while(1){
	while(<FILE>){
		print $_;
		seek(FILE,0,1);
	}
	sleep(1);
}