#! /usr/bin/perl -w

use strict;

use Spreadsheet::WriteExcel;

my $workbook = new Spreadsheet::WriteExcel('hallo.xls');
die "Problems creating new Excel file: $!" unless defined $workbook;

my $sheet = $workbook -> add_worksheet();

my $format= $workbook -> add_format(num_format => '[red][>10]General;[blue][<10]General;[green]General');

$sheet -> write(0, 0, 100, $format);
$sheet -> write(0, 1, 10, $format);
$sheet -> write(0, 2, 5, $format);

$workbook -> close() or die "Error closing file: $!";