#!/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>
	);
}