{ 
    my $ofh = select OUTPUT;
    $| = 1;
    select $ofh;
}