Quote

use DBI;

my $dbh =DBI->connect("dbi:Oracle:$db_name",$db_username,$db_password, \%attr) or die "Fehler beim Datenbankconnect:

my $sql = qq{select count(*) FROM Table ... };
my $sth = $dbh->prepare($sql) or die 'Fehler:', $DBI::errstr, "\n" ;

$sth->execute();
if ($sth->err()){die 'Fehler Datenbank: ', $sth->errstr() ,"\n$sql\n";

($count) = $sth->fetchrow_array();

return $count