use strict;
use warnings;
use Tk;
use Tk::Radiobutton;
my $rb_value;
my $mw = Tk::MainWindow->new;
$mw->Radiobutton(-text=>'first',-value=>'one',-variable=>\$rb_value)->pack;
$mw->Radiobutton(-text=>'second',-value=>'one',-variable=>\$rb_value)->pack;
$mw->Radiobutton(-text=>'third',-value=>'three',-variable=>\$rb_value)->pack;
MainLoop;
print $rb_value,$/;