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

use CGI ();
use Data::Dumper ();    #zum debuggen

Main( @ARGV );
exit( 0 );

sub Main {
    return DebugCGI();
}

sub DebugCGI {
    binmode STDOUT, ":encoding(utf8)";
    my $cgi = CGI->new;
    $cgi->charset('UTF-8');
# Content-Type: text/html; charset=UTF-8
# <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    $cgi->cookie; # "fetch" cookies
    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( DD($cgi) ),
      '</div></td></tr>',
      '<tr><td>',
      $cgi->escapeHTML( 'CGI::Cookie->fetch' ),
      '</td>',
      '<td><div style="white-space: pre-wrap; overflow: scroll;">',
      $cgi->escapeHTML( DD( { CGI::Cookie->fetch } ) ),
      '</div></td></tr>',
      '</table>',
      '<h1>And now %ENV</h1>',
      CGI->new( \%ENV )->Dump,
      $cgi->end_html;
}

sub DD { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }
__END__