use Tk;

my $mw = MainWindow->new();
for (1..3) { 
	$mw->DialogBox(-title => "?", -buttons => ["Yes", "No"])->Show();
}