my $old = select FOO;
$| = 1;
select $old;