Select Code to Download

-onClick=>'alert("work");)

-onClick=>'alert("work")');

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

my %hash = (
   old => 'Current Device Type',
...
   -default => 'old',
   -onClick => 'alert("Work")',
);