package FieldAttribs; use DBI; $dbh = ( "dbi:mysqlPP:database=$database;host=$host;port=$port", $username, $password, {'RaiseError'=> 1} ); $sth = $dbh->prepare( "SELECT * FROM $table" ); $sth->execute(); printf "%s %s %s", $sth->{NAME_lc}->[0], $sth->{TYPE}->[0], $sth->{PRECISION}->[0];