*FH = *STDOUT;
{
local *STDOUT;
tie *STDOUT, 'FileHandle::A', *FH;
print "testing";
}