Instead of SCALE, use PRECISION.

Check the DBI docs for some caveats about its applicability with numerical types.

To get reliable results, you should use $sth->{PRECISION} in coordination with the values of $sth->{TYPE}