Help for this page
sub openOut { select *main::OUT = *main::OUT; # squelch "used once" warning ...
sub openOut { { ... select *main::OUT; } ...