????? ### 円周率を利用するためのライブラリの宣言 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;