I love perl
From the perlipc man page...
But you don't actually have to make two pipe calls. If you
have the socketpair() system call, it will do this all for
you.
#!/usr/bin/perl -w
# pipe2 - bidirectional communication using socketpair
# "the best ones always go both ways"
If you want to see it yourself ..
$ man perlipc | grep -A8 -e '^ *But you don'
But you don't actually have to make two pipe calls. If you
have the socketpair() system call, it will do this all for
you.
#!/usr/bin/perl -w
# pipe2 - bidirectional communication using socketpair
# "the best ones always go both ways"
If you want to see it yourself ..
$ man perlipc | grep -A8 -e '^ *But you don'