#!/usr/bin/perl -w
use strict;
use Tk;
#require Tk::ErrorDialog;

my $mw = new MainWindow();

$mw->Button(-text=>'test',-command =>\&testit)->pack();

MainLoop;

sub testit{
  # division by zero error
  my $y = 1; my $x = 0; my $z = $y/$x;
 }

sub Tk::Error{ 
 my ($widget,$error,@locations) = @_;
 # print "$widget,$error,@locations\n";
 return; 
}