unless ($header_printed) {
    $header_printed = print $IN->header;
}