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