@row = $sth->fetchrow_array();
printf "%15s %12s %12s %12s %9s %5s $5s", @row;
##</code><code>##

@fieldNames = $sth->{NAME_uc};
printf "%15s %12s %12s %22s %9s %5s $5s", @fieldNames;