#!/usr/bin/perl -w

use strict;

use CGI;

oneheader();

my $q = new CGI;

print $q->header;
print $q->header;

close(STDOUT);
exit;

sub oneheader
{
    my $pid;
    my $seen = 0;
    return if $pid = open(STDOUT, "|-");
    die "cannot fork: $!" unless defined $pid;
    while(<STDIN>)
    {
        if(m/^Content-Type/)
        {
            print unless $seen;
            $seen = 1;
        }
        else
        {
             print;
        }
    }
    exit;
}