Select Code to Download

while( <TEMPFILE> ) {
     processLine( $_ )
}

  return (%hashed);

  my (%trec) = &hash_array(@arr);

  my (%trec) = &hash_array(@arr);
     
  return (%trec);
}

my (%trec) = &line2rec($line);

  if ($trec{'active'})

my @data;
while( <TEMPFILE> ) {
     /active/ and push @data, $_;
}