$ strace ./747486.pl
(...)
select(0, NULL, NULL, NULL, {0, 200000}) = ? ERESTARTNOHAND (To be restarted)
--- SIGCHLD (Child exited) @ 0 (0) ---
select(0, NULL, NULL, NULL, {0, 200000}) = 0 (Timeout)
write(8, "foo\n", 4)                    = -1 EPIPE (Broken pipe)
--- SIGPIPE (Broken pipe) @ 0 (0) ---
+++ killed by SIGPIPE +++