print radio_group (-name => "item",
                   -value => ["B","T","S","M"],
                   -labels => {
                       "B" => "Item B (\$10)",
                       "T" => "Item T (\$50)",
                       "S" => "Item S (\$200)",
                       "M" => "Item M (\$500)"
                              },
                   -linebreak => 1);