use Tk;
use Tk::Dialog;
use strict;
use warnings;

my $mw = MainWindow->new;
$mw->geometry('400x200+20+10');


$mw->Button ( -text=> 'DialogBox', -command=> sub  {
  for my $i (1..10)  {
    my $db = $mw->DialogBox(-title => 'title', -buttons => ['OK', 'Can
+cel'], -default_button => 'Ok');

    $mw->geometry(sprintf ("%dx%d+%d+%d", 400-$i*10, 200+$i*10, 10+$i*
+10, 10+$i*10 ));
    $mw->update();
    $db->geometry(sprintf ("%dx%d+%d+%d", 300+$i*10, 300-$i*10, 30+$i*
+10, 30+$i*10 ));
    $db->update();
    $db->Show();
  }
} )->pack ();

MainLoop;

1;