{
        my $selected= select(LOG);
        $|++; # Unbuffer output to LOG
        select( $selected );
    }

##</code><code>##

    require IO::Handle;
    LOG->autoflush(1);