sub Dialog
{
my $dialog = $mw->Toplevel();

my $Button = $dialog->Button( -text => "Ok",
			    -command => sub { return("TEST"); }
                            )->pack();

}