use Excel;

my $s = Excel->new("here.xls");

$s->print("one", "Hello World\nThis\tis\ta\ttest\n");
$s->print("one", join("\t", 1 ..10));
$s->print("one", "bye\n");
$s->print("one", join("\n",3 .. 5) . scalar(localtime));

$s->print("two", join("\n",13 .. 25) . scalar(localtime));
$s->print("eight", join("\n",13 .. 20) . scalar(localtime));

my $t = Excel->new("c:/temp/there.xls");
$t->print("two", join("\n",13 .. 25) . scalar(localtime));