use strict;
use Tk;

my $mw = MainWindow->new( -height => 385, -width => 575);
$mw->title ("Example");

#---------- Adding Button
my $button = $mw->Button( 
                           -text => "Click me!",
                           -relief => "raised",
               "-command"=>\&Click_me,
                           );
$button->place( -x => 215, -y => 295, -height => 22, -width => 90);

MainLoop;

sub Click_me {

    my $mw2 = $mw->Toplevel( -height => 123, -width => 245);
    $mw2->title ("");
    $mw2->grab();
}
[download]