В мире современных технологий сфера автоматизации с оптимальным использованием ресурсов активно развивается  и с каждым годом становится все более востребованной. Всякие разнообразные станки оказывают неоценимую помощь в различных сегментах производства. Это и обработка металла, намотка, художественная ковка и многое другое.

В следующем фрагменте кода осуществляется экспорт различных подпрограмм, определенных в модуле IO::interface, в пространство имен IO::Socket и выполняется их преобразование в мето­ды, которые могут использоваться с объектами IO::Socket. С помощью любой из функций, которые определены в глобальном массиве @functions, можно выполнять примерно такое присваивание:

*{"IO::Socket::if_addr") = &if_addr;

Приведенная здесь общая схема представляет собой малоизвестный способ создания в пространстве имен другого модуля псевдонима, соответствующего функции, которая определена в текущем модуле.   Эта схема описана, хотя и очень кратко, в справочных руководствах perl_sub и perl_ref и представляет собой основную операцию, выполняемую модулем Exporter. Такое действие необходимо выполнить для списка функций, поэтому применяется небольшой цикл, ко­торый создает псевдонимы пространства имен для каждой функции по очереди.

{

no strict 'refs';

*{"10: :Socket: :$_"} = &$__ foreach ©functions;

}

Оператор no strict 'refs' отключает на время средства проверки, которые запрещают подобные манипуляции пространством имен.