use strict;
use warnings;
use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new('test.xls');
my $worksheet = $workbook->add_worksheet();
my $col       = my $row = 0;
$worksheet->write_string( $row, $col, '801495E40' );