--- index.cgi	2009/04/18 23:21:40	24
+++ index.cgi	2009/04/18 23:54:30	26
@@ -76,7 +76,7 @@
 		}, shift @data, # extract where
 		'group by', join(',', @group_by), qq{
 		order by count($group_by) desc
-		limit 10
+		limit $limit
 		}
 	);
 
@@ -86,14 +86,15 @@
 	my $sth = $dbh->prepare( $sql );
 	$sth->execute( @data );
 	$t = time() - $t;
-	print qq|$t<table><tr><th>|, join(qq|</th><th>|, @cols), qq|</th></tr>|;
+	print qq|<code>$sql<code>|;
+	print qq|<table><tr><th>|, join(qq|</th><th>|, @cols), qq|</th></tr>|;
 	while ( my @row = $sth->fetchrow_array ) {
 		my $n = shift @row;
 		$n = 'NULL' unless defined $n;
 		print qq|<tr><td><a href="#">$n</a></td><td>|, join(qq|</td><td>|, @row), qq|</td></tr>|;
 	}
 	print qq|</table>|;
-	print qq|<code>$sql</code>|;
+	print $sth->rows, qq| rows in $t s|;
 	exit;
 }