#!/usr/local/bin/perl -w

use strict;

my @machines = ('ldap0.slb.com','ldap.slb.com','ldap2.slb.com');
foreach my $machine (@machines) {
    my $response = `ping -l 64 -n 1 $machine`;
    my $output .= "$machine: $response";
    print "$output\n";
}