die $help unless $ARGV[1];
map { /^-?\d+$/ or die "Invalid input $_\n" } @ARGV;

# . . . and later . . .
sub HELP_MESSAGE {
  print $help;
}