$::folder = 'E:\FOLDER\Test\WEB'; $::config = { license => 'kit-licence.zip', programs => [ #template society =>\%program_work 'VIKTOR DESCRIPTION PRODUCT' => { name => 'VIKTOR ', parameters => [ Count_id => '06 (Viktor)', Birth_date => '1995-04-30', Marriage_date => '2014-05-26', Divorce_date => '2015-03-30', Activities_folder => $folder.'\VIKTOR\independent worker', Activities_format => 'Enterprise Format (V35)', Description_File_from => $folder.'\VIKTOR\FILE\description.xlm', ] }, ] }; #### #! perl -slw use strict; use Data::Dump qw [ pp ]; do 'work.conf' or die $!; print $::folder; pp $::config; #### C:\test>junk Name "main::folder" used only once: possible typo at C:\test\junk.pl line 7. Name "main::config" used only once: possible typo at C:\test\junk.pl line 9. E:\FOLDER\Test\WEB { license => "kit-licence.zip", programs => [ "VIKTOR DESCRIPTION PRODUCT", { name => "VIKTOR ", parameters => [ "Count_id", "06 (Viktor)", "Birth_date", 1995-04-30, "Marriage_date", 2014-05-26, "Divorce_date", 2015-03-30, "Activities_folder", "E:\\FOLDER\\Test\\WEB\\VIKTOR\\independent worker", "Activities_format", "Enterprise Format (V35)", "Description_File_from", "E:\\FOLDER\\Test\\WEB\\VIKTOR\\FILE\\description.xlm", ], }, ], }