perl中调用外部程序，要注意把外部程序的输出重定向到/dev/null
否则容易死锁在调用的地方。
$cmd="sh ".$shfile." > /dev/null 2>&1"; print $cmd,"\n"; system($cmd);
