chomp $ans;
print "Got '$ans'\n";
print "stream = $stream";