Select Code to Download

Tk::Error: Illegal division by zero at C:\perl\dwnspd.pl line 79.
 main::__ANON__ at C:\perl\dwnspd.pl line 79
...
 Tk::Button::butUp at C:/Strawberry/perl/site/lib/Tk/Button.pm line 17
+5
 <ButtonRelease-1>
 (command bound to event)

use strict;
use warnings;
...
    $button = $mw -> Button(-text => " Exit ", -command => sub { exit 
+}) -> place(-x=>$col3, -y=>$hoog-50, -anchor=>'e');
MainLoop;
}