Select Code to Download

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

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