#!/usr/bin/perl  --
use strict;
use warnings;
use CGI;
use Data::Dumper;    #zum debuggen
Main( @ARGV );
exit( 0 );
sub Main {
    my $cgi = CGI->new;
    print $cgi->header(); # Write HTTP header
    print $cgi->start_html,
    $cgi->b(rand time, ' ', scalar gmtime),
    '<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;
}