$out = join "\n" , 1..100;
open PIPE, "| more";
print PIPE $out;