Here is a suggestion that shows you the basic idea. It's not exactly what you ask for, but this is not a free code writing service. :-)

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;
my $lastbutton = 'blue';
my $rb = 'blue';

my $rb1 = $mw->Radiobutton(-text => "Button Blue",
                            -value => 'blue',
                            -variable => \$rb,
                            -command => [ \&showRB, \$rb ])->pack;
my $rb2 = $mw->Radiobutton(-text => "Button Red",
                            -value => 'red',
                            -variable => \$rb,
                -command => [ \&showRB, \$rb ])->pack;
my $rb3 = $mw->Radiobutton(-text => "Button Green",
                            -value => 'green',
                            -variable => \$rb,
                -command => [ \&showRB, \$rb ])->pack;
my $rb4 = $mw->Radiobutton(-text => "Button Hot Pink",
                            -value => 'hotpink',
                            -variable => \$rb,
                -command => [ \&showRB, \$rb ])->pack;


my $but = $mw -> Button(-text=>"Preferred color", -command =>\&push_bu
+tton)->pack();

my $but1 = $mw -> Button(-text=>"Submit", -command =>\&update_script)-
+>pack();

                            
MainLoop;

sub push_button {

   foreach my $rb( $rb1,$rb2,$rb3, $rb4){
         $rb->configure(-state => 'disabled');
      } 

     $mw->messageBox(-title => 'Status',
                     -type  => 'OK',
                     -message  => "Status is :$rb:. Previous State was
+ $lastbutton");

}


sub update_script{
     
        $but1->configure(-bg => $rb);


      }



sub showRB
{
     print "Arg list is @_\n";
     my $state_ref = shift;
     my $state = $$state_ref;
     $mw->messageBox(-title => 'Status',
                     -type  => 'OK',
                     -message  => "Status is :$state:. Previous State 
+was $lastbutton");
     $lastbutton = $state;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.