use strict; 
use warnings;
use Tk;

my $mw = MainWindow -> new();

my $frame = $mw -> Frame()-> pack( ); 

my $id = 0;
my $bg_color = 'khaki';
my $radio_button1 
	= $frame -> Radiobutton (
								-text => 'RadioButton1',
								-value =>0, 
								-variable => \$id, 		
								-bg => $bg_color,
								-activebackground => $bg_color,
								-activeforeground => 'red',
							) -> pack ();
my $radio_button2 
	= $frame -> Radiobutton (
								-text => 'RadioButton1',
								-value =>1, 
								-variable => \$id, 
								-bg => $bg_color,
								-activebackground => $bg_color,
								-activeforeground => 'red',
							) -> pack ();

MainLoop;