#!/usr/bin/perl -w

# Program: printsth
print join (' ', @ARGV), $/ for (1..10);

##</code><code>##


#!/usr/bin/perl -w

# Program: captpipe

my $arg = "hi there";

print ("Going to call another perl program and capture it's output\n");

open (PIPE,"printsth $arg | ") or die $!;

while (<PIPE>) {
        print;
}

##</code><code>##

[sk]% captpipe
Going to call another perl program and capture it's output
hi there
hi there
hi there
hi there
hi there
hi there
hi there
hi there
hi there
hi there