$foo = $query->param('should_be_int');
warn "Not an integer!" if ($foo =~ /[^0-9\-]/)