perl输出重定向

先把A重定向到STDOUT， 之后的STDOUT不代表标准输出了 到最后用完了再恢复 ...