GUI Perl

  1. Home
  2. Perl
  3. GUI
  4. Build a list of Check Box by using the value in an array
#!/usr/local/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new(-title => 'My List');
foreach (qw/A B C D/) {
    $mw->Checkbutton(-text => $_)->pack(-side => 'left');
}
$mw->Button(-text => "Purchase")->pack(-side => 'bottom');
MainLoop;