在perl中刷新stdout不正常

Question

我正在尝试编写一个与plink一起使用的程序。 问题是，当我从plink获得输出然后尝试获取输入（STDIN）程序似乎冻结。 这是代码：

use IO::Handle;
STDOUT->autoflush(1); 
STDIN->autoflush(1); 

$h = <STDIN>;
system("plink -l root -pw Pp123456 192.168.1.211 snapmirror status -l Netapp:snap2");
print "Hello!";
$g = <STDIN>;  <--------Stuck here and i cant write anything (freeze).
print "GO!";