package FileHandle::A;

sub TIEHANDLE {
  my $self =   shift  ;
  my $fh   = [ shift ];
  bless \$fh => $self;
}

sub PRINT {
  my $self = shift;
  my @list = @_;

  my $fh = $$self->[0];
  print $fh @list;
}

tie *STDOUT, 'FileHandle::A', *STDOUT;

print "testing";