Select Code to Download

use Tk;
use strict;
...
$mw->Entry(textvariable => \$val)->pack;

MainLoop;

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

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