my $sth = $dbh->prepare("SELECT * FROM eib_tele")
          or die $dbh->errstr();
$sth->execute() or die $dbh->errstr;

while (my($id,$system_id,$sernr,$ga1,$data,$tid,$pid,$ep_time,$last_time,$src_type,$src_addr,$rt_counter,$Quelladresse) = $sth->fetchrow_array())
  {print("$id,$system_id,$sernr,$ga1,$data,$tid,$pid,$ep_time,$last_time,$src_type,$src_addr,$rt_counter,$Quelladresse \n");
  }