use strict;
use warnings;

use Tk;

my $mw = MainWindow->new ;

my $z = $mw->Zinc()->pack;
my $r = $z->add('rectangle', 1, [10,20,40,50]);
$mw->Button(-text => 'new Coords',
            -command => sub{$z->coords($r,1,[100,100,200,200])}
        )->pack;

MainLoop;