open($input.file, "<$InputFile") or die "Error! Cannot open $InputFile for reading: $!";

        while (<$input.file>) {
                $_ =~ s/\s+$//;
                next if ($_ =~ /^#/);
                next if ($_ =~ /^$/);

                if ($_ =~ m/^\[(\S+)\]$/) {
                $sComponent = $1;
                    next;
                }
                elsif ($_ =~ m/^;;\s*(.*)/) {
                    $sDesc .= "$1.";
                    next;
                }
                elsif ($_ =~ m/\$;(\S+)\$;\s*=\s*(.*)/) {
                    $sParam = $1;
                    $sValue = $2;

                    }

                    $sParam = $sValue = $sDesc = "";
                    next;
                }
            }