open2 (*BOY, *FLY, "$flyprog -q") || die "open2 $flyprog - $!\n';

##</code><code>##

while (<BOY>) {
   $output .= $_;
}
close (BOY);