Select Code to Download

print header;
while ( <FILE> ) {
    # ... 
}

while ( <FILE> ) { 
    # ...
  print header unless $already_printed_header++;
    # ...
}

use CGI qw/ -unique_headers /;

while ( <FILE> ) { 
...
  print header;
    # ...
}