$button = $canvas->Button( -text => "Push me", 
   -command => sub { print "Been pushed\n"; });
$id = $canvas->createWindow( 0, 0, -window => $button, 
   -tags => "button1", -anchor => "center" );

##</code><code>##

$canvas->move( "button1", 100, 100);