Help for this page
chomp $ans; print "Got '$ans'\n"; print "stream = $stream";
$ ./stdin foo ... stream = foo bar $