use warnings;
use strict;
use Tk;

my $main = MainWindow->new (-title => "ButtonDemo");
my @buttons;

push @buttons, $main->Button (-text => "Button $_") for 1..10;
$_->pack () for @buttons;

MainLoop ();