my $but=$mw->Button(-text=>"press",-command=>\&newwindow)->pack();