use strict;
use warnings;
use Data::Dumper;
use Tk;

my $t=MainWindow->new();
my $c=$t->Scrolled('Canvas')->pack;
$c->createArc(5,5,100,100);
$t->update;

my @a1 = @{ $c->bbox('all') || [ 1,2,3 ] };
print(Dumper(\@a1));          # 51,3,102,55

my @a2 = @{ $c->bbox('FOO') || [ 1,2,3 ] };
print(Dumper(\@a2));          # 1,2,3