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