Something

use strict;
use warnings;
use DBI;
use Net::Ping;

my $i = {
    'cfg'   => "./servers.cfg"
};
## SLAVE:IP:VPNIP:GLPORT:SSHPORT
open (CFG, "<", "$i->{cfg}");
my $slave = <CFG>;





for $slave (<CFG>) {
    my ($name, $wanip, $vpnip, $glport) = $slave =~ /^(\S+)\:(\S+)\:(\S+)\:(\S+)/;
    my $pingstatus = getping($wanip);
}

sub getping {
  print $_;
}