#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw	= MainWindow->new();

foreach my $index (1..6){
	my $frame	= $mw->Frame()->pack();

	$frame->Button(
		-text => "Button $index",
		-command => sub{
			print "Frame $index\n";
		}
	)->pack();
}

Tk::MainLoop();