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

open TTY, "</dev/tty";
print "Do you want to process the stream?";
my $ans = <TTY>;