A found a solution, but it is quite strange.

If I put a  sleep 10; before and after the  undef, it works!
Are there known any timing problems of perl?