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