#! /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();
$format -> set_num_format('[red][>50]General;[blue][<50]General;[green]General');

my $format_title= $workbook -> add_format();
$format_title -> set_font('Arial');
$format_title -> set_size(14);
# usw.

$sheet -> set_row(0, 20, $format_title);

foreach my $row (1..10){
	foreach my $col (0..1){
	$sheet -> write($row, $col, undef);
	}
	my $r = $row + 1;
	$sheet -> write($row, 2, "=A$r+B$r", $format);
}

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