#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
my $store = CGI->new;
my $cell = $store->param('cell');
my $target_dir = $store->param('target_dir');
print $store->header;
print $store->escapeHTML( $cell );
print '<hr>';
print $store->escapeHTML( $target_dir );
print '<hr>';
DebugCGI( $store);
exit 0;


sub DebugCGI {
    my( $cgi ) =  @_;
    $cgi ||= CGI->new;
    binmode STDOUT, ':encoding(UTF-8)';
    $cgi->charset( 'UTF-8' );
    print $cgi->header( -charset => 'UTF-8' );
    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></table>',
      CGI->new( \%ENV )->Dump,
      $cgi->end_html;
} ## end sub DebugCGI

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


__END__