#!/usr/local/bin/perl

my @machines =( 'host1.foo.com' , 'host2.foo.com' , 'host3.foo.com' );

my $HTML = "\n\n\n";
for ( @machines ) {
    $HTML .= $machine.': '.`ping $_`;
}
$HTML .= "\n\n\n";
print $HTML