Select Code to Download

#! /usr/bin/perl

...
        my ($r) = $dbh->selectrow_array("select $cast FROM rdb\$databa
+se");
        print "$cast ...... $r\n";
}

CAST(19 AS NUMERIC(18, 1)) ...... 19
CAST(19 AS NUMERIC(18, 2)) ...... 19
...
CAST(19 AS NUMERIC(18, 15)) ...... -8847564.000000985366528
CAST(19 AS NUMERIC(18, 16)) ...... -88475644.0000001263730688
CAST(19 AS NUMERIC(18, 17)) ...... -884756445.00000001899888640