my $dialog = $mw ->DialogBox( -title => ' ', -buttons => [qw(OK Abort)]);