Select Code to Download

use Tk;

...
    $mw->Button(-text=>"Button $index", -command => sub {print $index}
+)->pack();
}
MainLoop;

use Tk;

...
    $mw->Button(-text=>"Button $_", -command => sub {print $_})->pack(
+);
}
MainLoop;