if ($PLP::sentheaders) {
my @caller = caller;
die "Can't set headers after sending them at " .
"$caller[1] line $caller[2].\n(Output started at " .
"$PLP::sentheaders->[0] line $PLP::sentheaders->[1].)\n"
}
if ($PLP::sentheaders) {
my @caller = caller;
die "Can't set headers after sending them at " .
"$caller[1] line $caller[2].\n(Output started at " .
"$PLP::sentheaders->[0] line $PLP::sentheaders->[1].)\n"
}