my $dialog = $mw->DialogBox(-title => 'My Dialogue Box!',-buttons =>['Continue']);
$dialog->geometry( "400x200" ); #WIDTH x HEIGHT
$dialog->resizable( 0, 0 ); #(0, 0) means not resizable     
bottom->Frame(-relief=>'ridge', -border=>1)->pack(-fill => 'x', -padx=> 0, -pady=> 0);
$dialog->protocol('WM_DELETE_WINDOW',sub{return;});
my $topDialog_frame = $dialog->Frame(-relief=>'ridge', -border=>1)->pack(-fill => 'x', -padx=> 0, -pady=> 0);
my $middleDialog_frame = $dialog->Frame(-relief=>'ridge', -border=>1)->pack(-fill => 'x', -padx=> 0, -pady=> 0);
$topDialog_frame->Label(-text=>'Test 1',-font=>'Helvetica 9 bold')->pack(-anchor=> 'w', -ipadx=> 3, -ipady=> 3,);
$middleDialog_frame->Label(-text=>'Test 2',-font=>'Helvetica 9 bold')->pack(-anchor=> 'w', -ipadx=> 3, -ipady=> 3,);     
my $item = $dialog->Show();