#!/usr/bin/perl -w

use strict;
use Net::Ping;

# Var declaration
my ($host, $x, $res);
my $output = '';

# Servers that should be pingable at all times
my @ext_servernames = qw(
        exchange
        milton
        border
        sequel
        faxserver
        troll
        vindex
        waifer
);

sub ping_hosts {
        foreach $host (@ext_servernames) {
                my $p = Net::Ping->new;
                my $res = $p->ping($host);
                $output .= "Unknown host $host\n" unless defined $res;
                if (!$res) {
                        $output .= "$host doesn't respond to ping requests!\n";
                } else {
                        $output .= "$host is fine.\n";
                }
        }
}

ping_hosts;
# DEBUG print $res;
print $output;