package . . . ;

while(<DATA>){
	print FILE ;
	if($. % 1000 == 0){$text->insert('end'," . ")}
    }

return 1;

__DATA__
I gave foo bars to the foo fighters , and of course Dave 
well never mind ,