while ( <FH> ) {
	$tw->insert('end',$_) if $. <= $pagesize;		
}
		
my $to = ($. % $pagesize == 0) ? int( $. / $pagesize)
                               : int( $. / $pagesize) + 1;