{
  my $temp = *STDOUT;
  undef(*STDOUT);
  tie *STDOUT, 'FileHandle::A', $temp;
}

print "testing";