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

my($mw,$img1,$img2,$c,$btn,$id);

$mw = MainWindow->new;
$c = $mw->Canvas(-width => 400,-height =>200,-background=>'black')->pack;

$img1=$c->Photo(-file=>'but1.gif');
$img2=$c->Photo(-file=>'but2.gif');

$btn=$c->Button( -command=>sub{exit;}, -image=>$img1)->pack;
$id=$c->createWindow(200,150, -window=>$btn);

$btn->bind('<Enter>', => sub{ $btn->configure(-image=>$img2);} );
$btn->bind('<Leave>', => sub{ $btn->configure(-image=>$img1);} );

MainLoop;