#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $cgi = CGI->new();

print $cgi->header();

print $cgi->start_html(-title   => 'Perl und CGI',
                       -author  => 'me@nowhere.org',
                       -base    => 'true',
                       -target  => '_blank',
                       -meta    => {'keywords'  => 'Perl CGI Nonsense',
                                    'copyright' => 'No Way Publishing'},
                       -style   => {'src' => '/css/text.css'},
                       -TEXT    => '#FFFFFF',
                       -BGCOLOR => '#000000');

print "<H1>",scalar localtime(time),"</H1>\n";

print $cgi->end_html();