# Ein erstes CGI-Perl-Script
# entspricht dem C-Quelltext hallo.c
# Gib den CGI Antwort-Header aus, obligatorisch fuer alle HTML-Ausgaben
# Beachte die doppelten Zeilenvorschuebe (\n\n) zum Senden einer Leerzeile.
print("Content-type: text/html\n\n");
# Gib die HTML-Antwort an STDOUT aus.
print<<Ende;
<html>
<head>
<title>Einfache CGI-Ausgabe</title>
</head>
<body bgcolor="#FFFFCC">
<h1>Hallo!</h1>
Dies ist ein Text, welcher von einem CGI-Pogramm erzeugt wurde.
<p>
Es grüßt dich Gerhard Eichelsdörfer.
</body>
</html>
Ende
exit;
|