#!/usr/local/bin/perl -w
# cgi-welcome.pl -- Zeigt eine kurze CGI-Begruessung an.

use CGI qw(:standard);
use strict;

my $now = localtime(time());
print header,
    start_html("Hello CGI World"),
    h1("Hi CGI-World!"),
    font({-face => 'Helvetica', -size => 14},
     "Hello, this is a CGI program."),
    hr,
    "Generated: $now",
    end_html();