Help for this page

Select Code to Download


  1. or download this
    HELP_MESSAGE() and exit unless $ARGV[1];
foreach (@ARGV) {
...
sub HELP_MESSAGE {
  print $help;
}
  2. or download this
    die $help unless $ARGV[1];
map { /^-?\d+$/ or die "Invalid input $_\n" } @ARGV;