#!/wperl
use strict;
use warnings;
use Tk;
use Tk::Animation;

my $mw = new MainWindow(-background=>'#3B5998', -title=>'GUI - @CKJ');
$mw->geometry('100x100+40+50');

#GUI Building Area
#Default Settings
my $frm_q1 = $mw -> Frame()-> pack(-side => 'top', -expand => 1, -fill => 'x');
my $lbl_q1 = $frm_q1 -> Label(-text=>"Choose color")-> pack(-side => 'left');
my $rdb_p = $frm_q1 -> Radiobutton(-text=>"Red",-value=>"1",  -variable=>"arg_02")-> pack(-side => 'left');
my $rdb_f = $frm_q1 -> Radiobutton(-text=>"Green",-value=>"2",-variable=>"arg_02")-> pack(-side => 'left');
my $rdb_o = $frm_q1 -> Radiobutton(-text=>"Blue",-value=>"3",-variable=>"arg_02")-> pack(-side => 'left');
my $but = $mw -> Button(-text=>"Preferred color", -command =>\&push_button)->pack();
my $but1 = $mw -> Button(-text=>"Submit", -command =>\&update_script)->pack();
MainLoop;