Select Code to Download

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

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

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