print "Do you want to process the stream?";
my $ans = <STDIN>; 

##</code><code>##

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

##</code><code>##

{
   local $/ = undef;
   $stream = <>;  # slurp all the data in one read
}