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

my $x=10;
my $y=20;
my $x1=30;
my $y1=40;

my $mw=tkinit;
my $c=$mw->Canvas->pack;

my $rect = $c->createRectangle($x,$y,$x1,$y1,
               -fill=>'red' );

print "rect-> $x $y $x1 $y1\n";
my ($bx,$by,$bx1,$by1)= $c->bbox($rect);

print "bbox-> $bx $by $bx1 $by1\n";
MainLoop;