sub openOut {
    select *main::OUT = *main::OUT; # squelch "used once" warning
    ...

##</code><code>##

sub openOut {
    {
        no warnings 'once';
        select *main::OUT;
    }
    ...