use strict;
use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new("PIIgenerator2.xls");

my $isbn = $ARGV[0];

my $worksheet = $workbook->add_worksheet("Revises");

my %font    = (
                    -font      => 'Arial',
                    -size      => 12,
                    -color     => 'black',
                    -bold      => 1,
                  );

my $format = $workbook->add_format(%font);

$worksheet->write('A1', "ISBN");
$worksheet->write('B1', "$isbn");
$worksheet->write('A2', "Article ID", $format);
$worksheet->write('B2', "ISBN", $format);
$worksheet->write('C2', "PII", $format);
$worksheet->write('D2', "Comments", $format);

#my $format1 = $workbook->set_num_format();
my $s;
for $a (3..10)
{
$s = sprintf("%05d",($a-2));
my $s1 = "$s".' ';
$worksheet->write("A$a", "$s1");
}