open PROG,"program|" or die "Cannot fork";
while (<PROG>) {

 # do stuff...
}