正方形の面積を求めるシステム

#!/usr/bin/perl

#######################
# １辺の長さ
my $area;

# 正方形の答え
my $ans;
#######################

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

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

# $areaから面積を出して$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;