use Tk;
use strict;

my $val;

my $mw = new MainWindow;
$mw->Checkbutton(onvalue => "I am selected",
                 offvalue => "I am deselected",
                 variable => \$val)
   ->pack;
$mw->Entry(textvariable => \$val)->pack;

MainLoop;

##</code><code>##

$mw->Checkbutton(onvalue => 1,
                 offvalue => 0,
                 variable => \$val);

##</code><code>##

if ($val) {
     ...
} else {
     ...
}