Select Code to Download

use Excel;

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