#! /opt/3d/bin/perl -w

use strict ;
use warnings ;
use Spreadsheet::WriteExcel;

my $workbook ;
my $worksheet ;
my $format ;
my $row ;
my $col ;
my $host ;

$workbook = Spreadsheet::WriteExcel->new("dclist.xls") ;
die "Problems creating new Excel file: $!" unless defined $workbook;

$format = $workbook->add_format(); # Add a format
$format->set_bold();
$format->set_color('red');
$format->set_align('left');

for my $host qw(app0552 app0555 app0557 app0556 app0558 app0560 app0579 app0580 app0587 app0588 app3801 app3803 app3804)
{
        $worksheet = $workbook->add_worksheet($host) ;
        $worksheet->write($row , $col , "This is for DC $host" , $format);
}
=