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