Select Code to Download

my $rows = $tb->body_height(); 
$pagelines = 50;

...
    print $tb->body($i);
    print "\n" if $i % $pagelines == $pagelines-1;
}