#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;

my $id = $mw->id;
print "mainwindow->$id\n";

my $button = $mw->Button(-text =>'Exit',
                         -command =>sub {Tk::exit;}
                        )->pack();

my $buttonid = $button->id;
print "button->$buttonid\n";
			
my $mwpath = $mw->pathname($id);
print "mwpath->$mwpath\n";

my $buttonpath = $button->pathname($buttonid);
print "buttonpath->$buttonpath\n";

MainLoop;