package X;
...
my $radiovar;
...
sub radiovar {
   my $newval = shift;

   $radiovar = $newval if defined( $newval );
   return $radiovar;
}