{
  local *TEMP = *STDOUT;
  undef(*STDOUT);
  tie *STDOUT, 'FileHandle::A', *TEMP;
}

print "testing";

##</code><code>##

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

print "testing";