use Tk;
$mw = MainWindow->new;
for($i=0;$i<10;++$i) {
  my $b = $mw->Button(
    -relief => 'flat',
    -background =>"#FFFFFF",
    -width => 2,
    -height => 2,
    -text => "B $i",
  )->pack;
  $b->configure(-command => [ $b, 'DESTROY' ]);
}
MainLoop;
__END__