Select Code to Download

_________________________
12 dd
...
  };
}
____________________________________

sub get_record_from_file {
 my $filein = shift;
...
}

$record = get_record_from_file("input.txt","DH:",0);

sub get_record_from_file {
 my $filein = shift;
...
}
my $curpos = 0;
($record,$curpos) = get_record_from_file("input.txt","DH:",$curpos);

#!/usr/bin/env perl

...
        return eof $dh_fh;
    } 
}

$ pm_get_multi_rec.pl
Get next DH record (y/n): y
...
}
============================================================
No more DH records!