use Tk;
use strict;

my $mw = MainWindow->new;
$mw->geometry("500x200");
$mw->title("All-In-One Test");

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

sub newwindow(){

my $popup=$mw->Toplevel()->pack();
}
MainLoop;