#!/usr/bin/perl -w
use Tk;

my $mw = MainWindow->new(-title=>"Demo");

my $HlpBttn = $mw->Button(-text=>"Make NEW Window", -command=> sub { make_win(); });
					   
$HlpBttn->pack(-padx =>60, -pady =>10);

MainLoop;

sub make_win 
{
    my $win = $mw->Toplevel(-title=>'new window');

	my $Bttn = $win->Button(-text=>"CLOSE this window",
                       -command=> sub { close_win($win); }
                   )->pack(-padx =>60, -pady =>10); 
}

sub close_win
{
	my $thiswin = $_[0];
	$thiswin->destroy;
}