sub lam_num_error {
	$mw->messageBox(-message=>"The input must be an integer.");
	exit;
}

##</code><code>##

sub lam_num_error {
	$mw->messageBox(-message=>"The input must be an integer.");
	die;
}

##</code><code>##

Tk::Error: Died at Fastenator_working.pl line 1106.
 main::fl_num_error at Fastenator_working.pl line 1106
 main::calc_fast_loads at Fastenator_working.pl line 1096
 main::run_button at Fastenator_working.pl line 815
 Tk callback for .frame13.button
 Tk::__ANON__ at C:/MSC.Software/Patran/2008_r2/Perl_msc/site/lib/Tk.pm line 247

 Tk::Button::butUp at C:/MSC.Software/Patran/2008_r2/Perl_msc/site/lib/Tk/Button
.pm line 111
 <ButtonRelease-1>
 (command bound to event)