#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect(...connect args to oracle db...);

$dbh->do("CREATE TABLE test__table(testfield VARCHAR2(10))") 
    or die "Can't create table: $DBI::errstr";

my $sth= $dbh->prepare("SELECT * FROM test__table");

print $sth->{PRECISION}->[0].$/;

$dbh->do("DROP TABLE test__table");