#!/usr/local/bin/perl

print "Content-type: text/plain\n\n(in main code)\n";

# my $old;
# open ($old, ">&STDOUT") or die "Can't dup STDOUT: $!";

my $r = Apache->request;
$r->pool->cleanup_register(\&finish);

sub finish
{
    print STDERR "finishing...\n";
#   open (STDOUT, ">&", $old) or die "Can't dup \$old: $!";
    print "finishing stdout.\n";
    print STDERR "finished.\n";
}