?????

### 円周率を利用するためのライブラリの宣言
use Math::Trig;

#######################
# 半径の長さ
my $radius;

# 円の面積
my $ans;
#######################

# 送られたデータ
my $data = $ENV{'?????'};

# 送られたデータを=でsplitする
my($name , $radius) = ?????(?????);

# $radiusから面積を出して$ansに代入する
$ans = ?????;

# HTMLとして答えを画面に出力する
print <<"EOF";
Content-type: text/html

<html>
<head>
<meta charset="utf-8">
<head>
<body>
答えは:$ans cm<sup>2</sup>です。
</body>
</html>
EOF
exit;