Select Code to Download

#!/usr/bin/env perl

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