#/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use DBI;
use CGI::Carp qw(fatalsToBrowser);

######### [...]


sub verbindung_zur_datenbank {
    # baut Verdindung zur Datenbank auf
    
  my $datasource = "DBI:mysql:database=feurio_cddb;host=localhost";
  my $db_user = "sql";
  my $db_pass = "sql";

  (my $dbh_cd = DBI->connect($datasource, $db_user, $db_pass, {'RaiseError' => 1}) )
    || print "\nFehler beim connect zur Datenbank\n";


  return $dbh_cd;
}

######### [...]

  my $dbh = verbindung_zur_datenbank();   # $dbh: database handle
  
  my $sth = $dbh->prepare($sql);          # $sth: statement handle
  $sth->execute();
  my $result = sth->fetchall_arrayref();   #>> hier ist Zeile 215
  
  for (my $i=0;  $i = @{$result}-1; $i++) {  # Zeilen durchlaufen
    print "$result->[$i][2]<br>";
    
  
  }
  
  $sth->finish();
  $dbh->disconnect();