Help for this page
@row = $sth->fetchrow_array(); printf "%15s %12s %12s %12s %9s %5s $5s", @row;
@fieldNames = $sth->{NAME_uc}; printf "%15s %12s %12s %22s %9s %5s $5s", @fieldNames;