#!/usr/bin/perl -w

use strict;
use Jcode;
use Unicode::String qw(utf8 utf16);
use Spreadsheet::WriteExcel;

# Create a new workbook called simple.xls and add a worksheet
my $workbook  = Spreadsheet::WriteExcel->new("simple.xls");
my $uni_font  = $workbook->add_format(font => 'Arial Unicode MS');
my $worksheet = $workbook->add_worksheet(utf8( Jcode->new('???1')->utf8 )->utf16,1);

# Write some text
$worksheet->write_unicode(0, 0,  utf8( Jcode->new('????? Excel!')->utf8 )->utf16);

# Write some numbers
$worksheet->write(2, 0,  3);          # Writes 3
$worksheet->write(3, 0,  3.00000);    # Writes 3
$worksheet->write(4, 0,  3.00001);    # Writes 3.00001
$worksheet->write(5, 0,  3.14159);    # TeX revision no.?

# Write some formulas
$worksheet->write(7, 0,  '=A3 + A6');
$worksheet->write(8, 0,  '=IF(A5>3,"Yes", "No")');

# Write a hyperlink
$worksheet->write(10, 0, 'http://www.perl.com/');