my $oh = select $stream;