### Self-pipe init.
pipe(SIGRD, SIGWR);
# Make SIGRD non-blocking.
vec($rin, fileno SIGRD, 1) = 1;