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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my %hash = (
   old => 'Current Device Type',
   new => 'Add Device Type',
);

print radio_group(
   -labels  => \%hash,
   -name    => 'type',
   -values  => [values %hash],
   -default => 'old',
   -onClick => 'alert("Work")',
);