41,42c41,42
<     my $fh = *{ $self->{fh} };
<     print $fh $self->{output}->(@_);
---
>     open FH, ">&", \*{ $self->{fh} }; # dup to avoid potential STDOUT recursion
>     print FH $self->{output}->(@_);