my $file_name = ${shift()};
  my $lines_in  = ${shift()};

##</code><code>##


sub read_template {

  my $file_name = shift;
  my $lines_in  = shift;
  my $line_cnt  = 0;

  if (!open (INPUT, "< $$file_name")) {
    die "Can't open $file_name as input.";
  } else {
    while (<INPUT>) {
      $line_cnt++;
      $$lines_in .= $_;
    }
    close (INPUT);
  }
  return($line_cnt);
}