>>К сожалению кол-во "общих" переменных слишком велико, что бы передавать его параметрами.
>
>передавать в качестве указателя на хеш коструктору new(). При то что они
>"общие".
>
>>Уже нашел решение.
>
>это не решение, это костыль.
>
>>package NNNNN;
>>*var_from_main=*main::var_from_main
>>..........
>>..........
>>sub dddd {
>>$var_from_main #имеем доступ
>>}
>>1;
>
>пример, неверной декомпозиции на модули.
>
>ps: ничего личного, но если требуется подобный изврат, то явно проблемы в
>архитектуре приложения. Не сочтите за оскорбление.

Не буду отрицать, приложение писалось мною относительно давно, когда работу с модулями я еще не постиг в необходимой мере.
Посему писал как мог. А теперь приходится перестраивать дом, не снося фундамент.
Если можно - буду очень признателен за ссылки на источники по правильному написанию модулей и вообще основам "ООП" на перл