#! perl -slw
use strict;
use Data::Dump qw [ pp ];

our $folder;  #to prevent "only used once" warnings
our $config;

do 'work.conf' or die $!;

print $folder; # $folder is declared above, here in $main
               # not in file work.conf
               # since we are in main, don't need "full name"

pp $::config;  #can use full name here, but not necessary

##</code><code>##

$::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',                      
                    ] 
             },
       ]
};