#!/usr/bin/perl -w

use strict;
use Tk;
require Tk::TopLevel;

sub newWindow();
sub closeWindow();

my $TestWindow;

my $main = MainWindow->new();

$main->Button( -text    => "Click Me",
               -command => \&newWindow)->pack();


MainLoop;

sub newWindow () {

   $TestWindow = $main->TopLevel();
   $TestWindow->Label ( -text    => "I want to make a new toplevel window!")->pack();
   $TestWindow->Button( -text    => "Close Me",
                        -command => \&closeWindow)->pack();

}

sub closeWindow() {
   $TestWindow->destroy();
}

##</code><code>##

Subroutine Tk_cmd redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 14.
Subroutine CreateOptions redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 17.
Subroutine Populate redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 22.
Subroutine Icon redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 29.
Subroutine menu redefined at D:/Perl/site/lib/Tk/TopLevel.pm line 64.
Subroutine Toplevel redefined at D:/Perl/site/lib/Tk/Widget.pm line 247.
Assuming 'require Tk::TopLevel;' at D:\Work\test2.pl line 22
Tk::Error: Failed to AUTOLOAD 'Tk::Widget::TopLevel' at D:\Work\test2.pl line 22
 Carp::croak at D:/Perl/lib/Carp.pm line 119
 Tk::Widget::__ANON__ at D:/Perl/site/lib/Tk/Widget.pm line 338
 main::newWindow at D:\Work\test2.pl line 22
 [\&main::newWindow]
 Tk callback for .button
 Tk::__ANON__ at D:/Perl/site/lib/Tk.pm line 228
 Tk::Button::butUp at D:/Perl/site/lib/Tk/Button.pm line 111
 (command bound to event)