use Tk;
use Tk::FireButton;
my $i = 0;
my $mw = MainWindow->new();
my $fb = $mw->FireButton(
-text=>'Fire',
-command=>sub{$i++; print "fire $i\n"}
)->pack;
MainLoop;
use Tk;
use Tk::FireButton;
my $i = 0;
my $mw = MainWindow->new();
my $fb = $mw->FireButton(
-text=>'Fire',
-command=>sub{$i++; print "fire $i\n"}
)->pack;
MainLoop;