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);