die "Gotcha!" if validate_integer("not an integer");

##</code><code>##

sub is_integer {
  $_[0] =~ /^-?\d+\z/;
}