use Tk;
my $mw = tkinit;
my $val = 1;
$mw->Checkbutton( -variable => \$val )->pack;
MainLoop;