print $q->radio_group(
   -name    => 'type',
   -values  => [qw(old new)],
   -default => 'old',
   -onClick => 'alert("Work")',
   -labels  => {old=> 'Current Device Type', new=>'Add Device Type'},
);