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

$DBI::errstr";
        my $sql = "SELECT count (*) FROM tabelle...";
        my $aref = $dbh->selectall_arrayref($sql,undef) or die "Fehler beim Ausfuehren des Selects: $DBI::errstr";

        $dbh->disconnect();

        return $aref;
}