use CGI qw/ -unique_headers /;

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