Select Code to Download

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

sub getNextPage {
    my ( $tw ) = @_;
    $tw->delete('1.0','end');
...
    $tw->see('1.0');
    close FH;
}