open PRG,"/some/prog|" or die "Cannot fork prog";
while (<PRG>) {
    # do something with the line in $_
}
close PRG;