Select Code to Download

$mw -> Checkbutton (
           -activebackground => "white",
...
                -column => $y
                );
....

           -command => sub {print "hi"}  # <= this is a change
....