#!/usr/bin/perl -w use strict; use Config::Tiny; use Data::Dumper; my $Config = Config::Tiny->read( 'configtinytest.ini' ); # "_" is the default section (the one with no name) $Config->{'_'}->{'be_address'} = '192.168.106.55'; print Dumper ($Config); $Config->write( 'configtinytest2.ini' ); __END__ configtinytest.ini: ------------------- be_address = remote-be-address be_port = 9000 svs_port = 8733 log = log.txt verbose = 10 screen_print = true fe_id = 1 encryption_key = default_encrypt fe_id_last = 1 mtu = 45K cpu_throt = 100 bandwidth_throt = 100 system_tray_icon_enable = true email_notification_level = 10 web_access_enable = true sync_enable = true software_settings_interval = true min_space_for_dist = 30M configtinytest2.ini: -------------- bandwidth_throt=100 be_address=192.168.106.55 be_port=9000 cpu_throt=100 email_notification_level=10 encryption_key=default_encrypt fe_id=1 fe_id_last=1 log=log.txt min_space_for_dist=30M mtu=45K screen_print=true software_settings_interval=true svs_port=8733 sync_enable=true system_tray_icon_enable=true verbose=10 web_access_enable=true