while (<>) {
   $stream .= $_;
}