#!/C:/Perl/bin/perl.exe

use strict;
use warnings;
require 'ini.pl';

# Ein neues Wertepaar einfügen
insert_item('director.ini','Private','user2=4567');

# ein Wertepaar verändern
change_ini('director.ini','Private','Nordlicht','abcd');

# ein neues topic einfügen
insert_topic('director.ini','Admin');

# Konfiguration in einem topic auslesen
my %config = read_ini('director.ini','Stats');
while(my ($k,$v) = each(%config))
 {
 #und etwas damit tun...
 print "$k - $v\n";
 }