le99007@robin:~/src/perl> ./pipe.pl 
parent 7146 forked 7147
parent adding readable filehandle (IO::Pipe::End=GLOB(0x195708))
parent 7146 forked 7148
parent adding readable filehandle (IO::Pipe::End=GLOB(0x1957a4))
parent 7146 forked 7149
parent adding readable filehandle (IO::Pipe::End=GLOB(0x151eb0))
7149 child 1 writing to pipe 1, response hip
7146 calling IO::Handle::getline
7146 read |child 1, response hip|
7146 removing IO::Pipe::End
7146 2 handles left to read
7148 child 2 writing to pipe 2, response hip
7146 calling IO::Handle::getline
7146 read |child 2, response hip|
7146 removing IO::Pipe::End
7146 1 handles left to read
7147 child 3 writing to pipe 3, response hooray
7146 calling IO::Handle::getline
7146 read |child 3, response hooray|
7146 removing IO::Pipe::End
7146 0 handles left to read
exiting...