open MORE,"|more" or die "wtf hax:$!";
open HELP,"help|" or die"more hax:$!";
print MORE <HELP>;

##</code><code>##

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>;