#!/usr/bin/perl

use IO::Socket::INET;
use Config::IniFiles;

my $cfg = Config::IniFiles->new(-file => *DATA);

my %socket = ();
for my $monitor ( $cfg->GroupMembers('Monitor') ) {
    my ($name) = $monitor =~ /Monitor (.+)/;
    $socket{$name} = IO::Socket::INET->new(
      Timeout  => $cfg->val( $monitor, 'Timeout' ),
      PeerAddr => $cfg->val( $monitor, 'PeerAddr' ),
      PeerPort => $cfg->val( $monitor, 'PeerPort' ),
      Proto    => $cfg->val( $monitor, 'Proto' ),
    );
}

# ...

__DATA__
[Monitor Pop3]
  Timeout  = 1
  PeerAddr = 'mail.test.com'
  PeerPort = 110
  Proto    = 'tcp'

[Monitor SMTP]
  Timeout  = 1
  PeerAddr = 'mail.test.com'
  PeerPort = 25
  Proto    = 'tcp'

[Monitor Web]
  Timeout  = 1
  PeerAddr = 'test.com'
  PeerPort = 80
  Proto    = 'tcp'

[Monitor DNS]
  Timeout  = 1
  PeerAddr = 'test.com'
  PeerPort = 53
  Proto    = 'tcp'