use Tk;

use strict;
use warnings;
my $mw = MainWindow->new();
for (0 .. 10) {
	$mw->Button(-text=>"Button $_", -command => sub {print $_})->pack();
}
MainLoop;