my $workbook  = spreadsheet::WriteExcel->open("beads.xls");

##</code><code>##

my $workbook  = spreadsheet::WriteExcel->new("beads.xls");