sub PRINT {
  my $self = shift;
  my $fh = *{$self->{fh}}}; # the file handle we tied in TIEHANDLE
  print $fh $self->{output}->(@_); # the sub we passed in in TIEHANDLE
}