while(<$fh>){
   $text .= <$fh>;
}