Help for this page
Select Code to Download
Select
or
download this
$out = join "\n" , 1..100; open PIPE, "| more"; print PIPE $out;