if(( $_[0] =~ /^\s*[\+\-]?\d+\s*$/) and ($_[0] > 0)) {
    return 1;
  }
  else{
    return undef;
  }