use Config::IniFiles;
my $config = Config::IniFiles->new( -file => '/pfad/zur/datei.ini' );
my $section = 'test1';

print "Section $section existiert" if $config->SectionExists( $section );