{
    local *STDOUT;
    open STDOUT, '>>', "$logbin/$logname" or die $!;
    # ...
}

##</code><code>##

open LOG, '>>', "$logbin/$logname" or die $!;
# ,,,
{
    my $oldout = select LOG;
    # ... log stuff
    select $oldout;
}