Help for this page

Select Code to Download

Select or download this

sub read_line {
    my $h = shift;
...
      my @paragraphs = read_para(*TXT);
      # process
}