Select Code to Download

#!perl 
use warnings;
...
  }
}
MainLoop;

    $mw -> Checkbutton (
           -activebackground => "white",
...
sub react {
  print "$_[0]\n";
}

-command => [\&display, $x, $y]