my $t_ws_name = $ws_name;
my $maxlen = 31-length('.'.$overflow);
$t_ws_name =~ s{^(.{0,$maxlen}).*$}{$1};
- $ws = $wb->add_worksheet($ws_name.'.'.$overflow);
+ $ws = $wb->add_worksheet($t_ws_name.'.'.$overflow);
$overflow++;
$row=1;
output_row(\@header_row,$row,$ws,$wb,\%wb_formats,\%options);