select( (select(STDERR), $|++)[0] );

##</code><code>##

my @list = (select(STDERR), $|++);
select(@list[0]);

##</code><code>##

my ($fh, $junk) = (select(STDERR), $|++);
select($fh);

##</code><code>##

my $fh = select(STDERR);
my $junk = $|++;
select($fh);

##</code><code>##

my $fh = select(STDERR);
$|++;
select($fh);