#!/usr/bin/env perl

use Encode qw(decode);



print "Content-Type: text/html; charset=UTF-8\n\n";
print "<!DOCTYPE html PUBLIC \"-//W3C//DTDXHTML 1.0Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">" . 
		"<html xmins=\"http://www.w3.org/1999/xhtml\">" . 
		"<head>" . 
		"<title>tagtest</title>" . 
		"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">" . 
		"<meta http-equiv=\"Content-Style-Type\" content=\"text/css\">" . 
		"<meta http-equiv=\"X-UA-Compatible\" content=\"IE=7\" />" . 
		"</head>" . 
		"<body>";

#$title = "MySQL5構築ガイド―オープンソース高速データベースとApache、PHP、Perl、Javaを使ったWe";
#$c = length($title);
#print $c;

my $text = '最新LLフレームワークエクスプローラ Ruby on Rails, Maple/Ethna(PHP),Catalyst(Perl),TurboGears(Python) 5大フレームワーク徹底攻略';

my $c_text = $text;
$c_text =~ s/\r//sig;
$c_text =~ s/\n//sig;
my $length = length(decode('utf-8', $c_text));

print $text;
print "<br>";
print $length;

print "\n";
print "\n";
print "\n";

$pw = '111111';
@pwcnt = split /,/, $pw, 1;
$rcnt = $#pwcnt;
$dot = "";		
		for ($i=0; $i > 6; $i++) {
		$dot .= '5';
		}

print "<html>" . 
		"<body>";
print "$dot";
print "●";
print "$rcnt" . 
		"</body>" . 
		"</html>";