my $oh = select( WHATEVER );
$| = 1;
select($oh);

# or even (might be regarded as obfu) :

select( ( select( WHATEVER ), $| = 1 )[0] );