STDOUT clones in mod_perl

[David Scott]

I've been trying to pass the STDOUT filehandle to subroutines, with 
mixed success.  Seems I should be able to do:

my $fh = \*STDOUT;
my_sub( $fh );
where my_sub is:

sub my_sub {
   my ( $fh ) = @_;
   print $fh "foobar\n";
}

I'm not getting any output at all, in fact the Apache process blocks.

Also,

tie $fh, ref $r, $r

complains that TIESCALAR can't be found in class Apache, although this 
is supposed to work.

I'm using Apache 1.3.27 and mod_perl 1.

Any ideas?

David