#!/usr/bin/perl 
# Einbinden der Module 
use CGI::Carp qw(fatalsToBrowser); 
use strict; 
use CGI; 
use DBI; 
 
# Verbindung zur Datenbank herstellen 
my $db=DBI->connect('dbi:mysql:Datenbankname',  'Benutzername', 'Passwort') || die "Kann keine Verbindung zur Datenbank herstellen: $DBI::errstr"; 
my $http=new CGI; 
 
my $von_stunde='20'; 
my $bis_stunde='21'; 
 
print "Content-type: text/html\n\n"; 
 
my $query = $db->prepare("select DATE_FORMAT(tabA.Datum, '%H:%i'), tabB.Titel_de 
	FROM tabA, tabB 
	WHERE (tabA.Datum BETWEEN (interval ? hour + current_date) AND (interval ? hour + current_date)) 
	AND (tabA.ID = tabB.ID) 
	ORDER BY tabA.Datum"); 
 
print $db->errstr; #Errorstring 
$query->execute($von_stunde, $bis_stunde); 
 
 
while(my @daten = $query->fetchrow_array){ 
 
# ---> Sonderzeichen escapen 
@daten = map CGI::escapeHTML($_), @daten; 
 
print [..] 
} 
 
# Datenbank-Verbindung beenden 
$db->disconnect(); 
 
exit;