This code as written consumes the entire input file:
Stop reading more lines from the file once you have found the header line.

my $header_line;
while (<$fh>) {
  next unless /^fieldname/; # skip to header line
  $header_line = $_;
  last;  ####### ADDD THIS #####
}
[download]