perlで”<>”をコマンドへ渡し、そのコマンドでフィルターしたものをさらに受け取るにはどうすればよいでしょうか。

具体的には、
---
open( f, ”cmd |” );
while( <f> ) {
フィルタ処理
}
---
への入力を、標準入力からでも引数でも行えるように、スマートに書きたいと思い、”<>” をopenで開いたcmdへそのまま渡す方法があれば、と思ったのですが。