#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use utf8;
use Encode qw/decode_utf8 encode_utf8 is_utf8 decode/;
use FindBin qw/$Bin/;
use CGI qw/fatalsToBrowser/;
use CGI::Carp qw/fatalsToBrowser/;
use FileHandle;
use Log::Log4perl qw(:easy);
use Devel::Peek;
#Log::Log4perl->easy_init( { level => INFO, file => ">> $Bin/log/instance_run.log" } );

use open ':encoding(UTF-8)';
use open ':std';

my $q = CGI->new();

my $keyword = $q->param('keyword');

$keyword = decode_utf8( $keyword ) unless is_utf8( $keyword );

die("Missing keyword") unless $keyword;

print $q->header(-charset => 'utf-8');
my $keyword2 = $q->param('keyword');
print $keyword;
print "<br />";
print $keyword2;
print "<br />";
print "ist utf8? -> " . Dumper(utf8::is_utf8($keyword2));
print "<br />";
die($keyword);