#!/usr/local/bin/perl -w

use strict;
use Tk;

my $mw = new Tk::MainWindow;
my $mb = $mw->Menubutton(-text => 'Test')->pack(-side => 'left');

sub Select {
  my $val = shift;
  my $top = $mw->Toplevel(-title => "Selection $val");
  $top->Button(-text => "Close Select($val)",
	       -command => ['destroy', $top])->pack;
}

for(1..10) {
  $mb->command(-label => $_,
	       -command => [\&Select, $_]);
}

MainLoop;