use warnings;
use DBI;

my($dbh, $sql, $res, @result, $kennz, $dbiServiceName);

$dbiServiceName = "DBI:Oracle:prod";

$dbh = DBI->connect($dbiServiceName,"ibis01","ibis01");

if (defined($dbh))
{
  $sql = "select * from test";
  $res = $dbh->prepare($sql);
  $res = $dbh->execute();
  @result = $dbh->fetchrow_array();
  $dbh->disconnect();
}