local (*RPC);
open(RPC,"/bin/rpcinfo -p foo|") or die ...
while(<RPC>) {
   # do something with the output
}