while (my @rows = $sth->fetchrow_array() ) {
  return join '', map {sprintf $fmt, @$_ } \@headers, \@rows;
}
$sth->finish;