Help for this page
... %mainVars; $mainVars = \%mainVars; main($msgLVL);
sub main { ... print "-- Leaving [$sub]\n" if $msgLVL > 1; }