#!/usr/bin/perl use Libconf::Glueconf::Hosts; use Data::Dumper; my $hosts = new Libconf::Glueconf::Hosts('hosts'); print Dumper($hosts) . "\n"; $hosts->readConf(); print Dumper($hosts) . "\n"; $hosts->{'127.0.0.1'}{aliases} = [qw(me myself I)]; print Dumper($hosts) . "\n"; $hosts->writeConf('new_hosts');