use IPC::Open2;
open HELP,"help|" or die"more hax:$!";
open2(MORE_READ,MORE_WRITE,'more');
print MORE_WRITE <HELP>;
close MORE_WRITE; #send eof so the program will give us stdout
print <MORE_READ>;