#!/usr/bin/perl
local $data = $ENV{'QUERY_STRING'};
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body>\n";
@parts = split(/&/, $data);
($name, $value) = split(/=/, $parts[0]);
print "$valueさんようこそ。<p>\n";
($name1, $value1) = split(/=/, $parts[1]);
###### 面積を求めている。######
$Takasa = (sqrt(3)/2)*$value1;
$Teihen = $value1;
$Ans = ($Teihen*$Takasa)/2;
###############################
print "１辺$value1 cmの正三角形の面積は，$Ans cm<sup>2</sup>です。";
print "</body>\n";
print "</html>";
exit 0;