perl - OOスタイルでパイプを開くにはどうすればよいですか？

Question

古いコードを次のように新しいスタイルで書き直します。

#old style
open(FD,"file");

#new style
$fh = IO::File->new("file","r");

ファイルは大丈夫ですが、パイプを開く方法がわかりません。

# read from pipes.
open(PIPE,"some_program |");

# write to pipes.
open(PIPE,"| some_program");

OOスタイルIOでパイプを処理する方法は？

追加：
ジョナサンに感謝します、それは大丈夫です。

# read from pipes.
$pipe = IO::Pipe->new;
$pipe->reader('some_program');
$data = <$pipe>;

# write from pipes.
$pipe = IO::Pipe->new;
$pipe->writer('some_program');
print $pipe "foo,bar,baz";

Answer 1

IO::PipeとFileHandleを確認してください。