Yes, I've just found this very useful as well! But apart from changing set_format to set_num_format. I was getting an error on close. I found that the workbook had to be explicitly closed. So in Excel.pm put:

sub close {
my ($self) = @_;
$self->{workbook}->close;
}
[download]

And then your code should end:

$excel->close;

before exiting.