#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use HTML::Template;

my $template = HTML::Template->new( filename=>'./switch-status.tmpl' );
my @hosts = ( qw/ switch cisco1 cisco2 ninety nine cisco5 / );
my $info = [];

foreach my $host ( @hosts ) 
{
 my $data = {
        hostname=> $host,
        status  => Host2Status($host) ,
        };
 push @$info , $data;
}

$template->param(switches=>$info);

print $template->output;

sub Host2Status {
 my $host = shift;
 my $rand_status = int (rand 2)-1;
 my $status = ($rand_status) ? "Cool" : "Froody";
 return $status;
}