#!/usr/bin/perl
use Tk;
$mw = tkinit;
$p = $mw->Photo(-file => Tk->findINC("Xcamel.gif"));
$b = $mw->Button(-image => $p,
		 -command => sub {
		     $p->configure(-file => Tk->findINC("openfolder.xpm"));
		 })->pack;
MainLoop;