sub PRINT {
    my $self = shift;
    my $fh = *{ $self->{fh} };
    print $fh, $self->{output}->(@_);
}