#!/usr/bin/perl


use strict;
use CGI -utf8;

my $c = CGI->new;

print "Content-Type: text/html; charset=UTF-8\n\n";


if($c->param){
        my $x = $c->param('x');
        print "$x <br>";
        print length($x), "<br>";
}
else{
        print qq(
                <form action="$ENV{SCRIPT_NAME}">
                        <input name="x">
                        <input type="submit">
                </form>
        );
}