#! /usr/bin/perl

# perl t.pl dbi:InterBase:dbname=... user pass

use DBI;
use strict;
use warnings;

my $dbh = DBI->connect(@ARGV[0..2], {RaiseError => 1});

for my $scale (1 .. 17) {
        my $cast = "CAST(19 AS NUMERIC(18, $scale))";
        my ($r) = $dbh->selectrow_array("select $cast FROM rdb\$database");
        print "$cast ...... $r\n";
}