use strict;
use warnings;
use Tk;

my $main = MainWindow->new;
$main->Button (-text => "new window", -command => \&newTextWnd)->pack ();
MainLoop;

sub newTextWnd
{
$main->Toplevel ();
}