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