use warnings;
use strict;
use Tk;
use Tk::DialogBox;

my $mw = MainWindow->new;

my $db = $mw->DialogBox( -title => 'Status', -buttons => ['Ok', 'Cancel'] );
print $db->Show( -popover => $mw, -overanchor => 'c', -popanchor  => 'c' );
MainLoop;