IPC::Open2
双方向のパイプ。
参考 : http://perldoc.jp/docs/perl/5.6.1/perlfaq8.pod の"How can I open a pipe both to and from a command?"
#! /usr/bin/perl use strict; use warnings; use IPC::Open2; open2( \*R, \*W, "sort" ); print W "a\nB\n1\n99\n09\n"; close W; print while <R>; close R; __END__