Stuff

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Net::Ping;
my $i = {
    'cfg'   => "servers.cfg"
};
 
## SLAVE:IP:VPNIP:GLPORT:SSHPORT
open (CFG, "<", "$i->{cfg}");
print "Opening file ".$i->{cfg}."\n";
while (my $slave = <CFG>) {
    my ($name, $wanip, $vpnip, $glport, $sshport) = split(/:/, $slave);
    print
        "Name: ".$name.
        "\nWanip: ".$wanip.
        "\nVpnip: ".$vpnip.
        "\nGlport: ". $glport.
        "\nsshport: ". $sshport. "\n";
    my $pingstatus = getping($wanip, $vpnip);
}
 
sub getping {
  my $wanip = $_[0];
  my $vpnip = $_[1];
  print "Trying to ping wan: $wanip\n";
  print "Trying to ping vpn: $vpnip\n";
}