Select Code to Download

*print = *PRINT;
*printf = *PRINTF;
*new = *TIEHANDLE;

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
}