my $config = Config::Tiny->read('SQLdata.ini');
        foreach my $section (keys %$config)
        {
                print "[$section]\n";
                foreach my $parameter (keys %{$config->{$section}})
                {
                        print "$parameter = $config->{$section}->{$parameter}\n";

                }
         #return $parameter;
        }