#!/usr/bin/perl

use strict;
use Config::IniFiles;

my %Config;
my $interface;
my @iface;

tie %Config, 'Config::IniFiles', ( -file => '/usr/local/pf/conf/pf.conf' );

@iface = tied(%Config)->Groups;

foreach my $group ( @iface )
{
   print "Checking group $group \n";
   foreach $interface ( tied(%Config)->GroupMembers($group) )
   {
      print $Config{$interface}{'ip'} . "\n";
   }

}

foreach $interface ( tied(%Config)->GroupMembers("interface") )
{
    print $Config{$interface}{'ip'} . "\n";
}