#!/usr/local/bin/perl

  @machines = qw(
      host1.foo.com
      host2.foo.com
      host3.foo.com
  );
  $HTML = "\n";
  $HTML .= " \n";
  $HTML .= " 
  \n";
  foreach $machine (@machines) {
      $response = `ping $machine`;
      $HTML .= "$machine: $response";
  }
  $HTML .= " 

  \n";
$HTML .= " \n";
$HTML .= "\n";
open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\n";
print HTMLFILE "$HTML\n";
close (HTMLFILE);