my $string;
my $SH= new IO::Scalar;
$SH->open (\$string);

select ($SH);  ## here