-showcommand  => sub { my($dlg) = @_; $dlg->geometry('900x600+400+250'); }