use strict;
use warnings;
use Excel::Writer::XLSX;

# Create a new workbook called simple.xls and add a worksheet
my $workbook  = Excel::Writer::XLSX->new( 'a_simple.xlsx' );
my $worksheet = $workbook->add_worksheet();

my $textformat = $workbook->add_format();
$textformat->set_num_format( 0x31 );
$worksheet->write( 0, 0, "4004885000007", $textformat );

$workbook->close();