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