BEGIN
{

    my
    (
        $IniFile, $SectionName, $IniConfig, @ParamNames, $ParamName,
        $IniValue
    );

    $IniFile = "RefPin.ini";
    $SectionName = "DbAttr";

    $IniConfig = new Config::IniFiles
    (
        -file => "$IniFile",
        -default => "$SectionName"
    );

    @ParamNames = $IniConfig->Parameters($SectionName);

    foreach $ParamName (@ParamNames)
    {
        $IniValue = $IniConfig->val($SectionName, $ParamName);
        $DbAttr{$ParamName} = $IniValue;
    }

}