#!/usr/bin/perl -w

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

while(<PIPE>) {print; last if $i++ >=1000; }

close(PIPE) or die "Quit with exit status: $? message: $!" ;

##</code><code>##

 
#prog printsth 
#!/usr/bin/perl -w

print "hi there", $/ while(1);

##</code><code>##

hi there
....
....
hi there
hi there
Quit with exit status: 13 message:  at termpipe line 7.