Spreadsheet::WriteExcel でデフォルトフォントが Arial なのがイヤだ

こんな悪いことするといかにも日本の Excel なファイルができました。

use utf8;
use Spreadsheet::WriteExcel;
use Spreadsheet::WriteExcel::Format;

my $book = Spreadsheet::WriteExcel->new('foo.xls');

my $default_format = Spreadsheet::WriteExcel::Format->new(
    15,    # default font
    font => 'MS Pゴシック',
    size => 11,
);
$book->{_formats}->[15] = $default_format;

my $sheet = $book->add_worksheet();
$sheet->write(0, 0, 'ほげほげ');

$book->close();

いまだにバイナリ xls にこだわるのもなんですけど。