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