The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
test (int n, int m)
{
  while (n > 0) {
    if (n>m) {
      break;
    }
    else if (m>n){
      continue;
    }
    n = n-1;
  }
}