CGI.pmでラジオボタンを思い通り表示できない
<INPUT TYPE="radio" NAME="bread" VALUE="wheat" CHECKED> 小麦パン<BR>
<INPUT TYPE="radio" NAME="bread" VALUE="white"> 白パン<BR>
<INPUT TYPE="radio" NAME="bread" VALUE="rye"> ライ麦パン<BR>
CGI.pmでこれと同じ出力をするにはどうすればよいのですか。
解説サイトなどを見よう見まねで作った私のソースは次のとおりです。
#!/usr/bin/perl
use CGI(-no_xhtml);
my($q) = CGI->new;
print(
$q->header(-charset => "EUC-JP"),
$q->radio_group(-name => "bread", -value => "wheat", -checked), " 小麦パン", $q->br, "\n",
$q->radio_group(-name => "bread", -value => "white"), " 白パン", $q->br, "\n",
$q->radio_group(-name => "bread", -value => "rye"), " ライ麦パン", $q->br
)
これの出力結果は次のとおりです（´д｀）
<input type="radio" name="bread" value="wheat" checked="checked" checked>wheat 小麦パン<br>
<input type="radio" name="bread" value="white" checked="checked">white 白パン<br>
<input type="radio" name="bread" value="rye" checked="checked">rye ライ麦パン<br>
近づいてきてはいるのですが、全部のラジオボタンにchecked="checked"が付いてしまっています（´д｀）
あと、valueで指定した文字列がタグの外に出てきてしまっています（´д｀）
お礼
ご回答ありがとうございます。 多分分離せずそのまま使うのでしょうねｗ