Select Code to Download

my $reg=$top->Entry(width=>30,
                    -font=>12,
...
                    -validatecommand=>\&setting,
                    -validate=>'all',
                    )->pack();

my $i=$frame1->Checkbutton(
                        -bg=>COLOR,
...
                        )->pack(
                                 -side=>'left',
                                 );

sub setting{
            if (substr($regex,0,2)eq 'tr') 
...
            else 
               {$state='active'};
            }