alternate(
	sub { $sth->fetch },
	sub { print $row },
	sub { $id },              # which variable to monitor
	sub { print "</tr><tr>" } # what to do when variable changes
);