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;