--- sql2xls.cgi	2008/11/03 19:19:39	10
+++ sql2xls.cgi	2008/11/03 19:30:12	11
@@ -85,7 +85,8 @@
 	$sheet_name =~ s/\.sql//;
 
 	# Add a worksheet
-	my $worksheet = $workbook->addworksheet($sheet_name);
+	warn "# clipping sheet name '$sheet_name' to 31 char limit\n" if length $sheet_name > 31;
+	my $worksheet = $workbook->addworksheet( substr($sheet_name,0,31) );
 
 	print STDERR "working on $sql_file\n" if ($debug);