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

my $mw = tkinit;

my $button = $mw->Button(-text => 'Push Me')->pack;

$button->configure(-command => [\&Invert, $button]);

my $button1 = $mw->Button(-text => 'Flashy')->pack;

my $timer = $mw->repeat(500,[\&Invert, $button1]);

MainLoop;


sub Invert {
my($w) = @_;
$w->configure(-bg => $w->cget('-fg'), -fg => $w->cget('-bg'));
}