select(STDERR);
$|=1;            # Autoflush STDERR.
select(STDOUT);  # This doesn't undo STDERR's autoflushing.
$|=1;            # Autoflush STDOUT.
# STDOUT will be the default print handle
# because it was the last select()ed handle.