#!/usr/bin/perl -w  --
use strict;
use warnings;
use utf8;    #this perl-file is written in utf-8
use CGI;
use Data::Dumper;    #zum debuggen

Main(@ARGV);
exit(0);

sub Main {
    binmode STDOUT, ":encoding(utf8)";
    my $cgi = CGI->new;
    $cgi->charset('UTF-8'); # Content-Type: text/html; charset=UTF-8
## AND  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    print $cgi->header(); # Write HTTP header
    print $cgi->start_html,
    $cgi->b(rand time, ' ', scalar gmtime),
    $cgi->start_form,
    $cgi->textfield('creators_name'),
    $cgi->submit,
    $cgi->end_form,
    '<table border="1" width="%100"><tr><td>',
    $cgi->Dump,
    '</td><td><div style="white-space: pre-wrap; overflow: scroll;">',
    $cgi->escapeHTML( Dumper( $cgi ) ),
    '</div></td></tr></table>',
    CGI->new( \%ENV )->Dump,
    $cgi->end_html;
}