#!/usr/local/bin/perl -wuse 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;