#!/usr/bin/perl
#
# hello.pl
#
# von H. Baeurle - letzte Aenderung: 26.06.2002

use strict;

my $serverzeit;

# Ueber den Content-Type wird dem Browser mitgeteilt um
# welche Art von Daten es sich im folgenden handelt,
# z.B. image/gif, image/jpg ...
print "Content-Type: text/html\n\n";

# Die Ausgabe des UNIX-Befehls date wird in der Variablen
# serverzeit gespeichert.
# Achtung: Die richtigen Hochkommas verwenden!
$serverzeit=`/bin/date`;

# Ab hier wird mit print-Befehlen die HTML-Ausgabe erzeugt.
print "<html><head>\n";
print "<title>Hello world!</title>\n";
print "</head><body>\n";
print "<h1>Hello world!</h1>\n";
print "Die Serverzeit ist: ",$serverzeit;
print "</body></html>\n";

exit;

# Programmende: