Help for this page

Select Code to Download

Select or download this

use constant BYREF=>0;

...
    $_[BYREF] = 1000 if $_[BYREF] > 1000;
    ...
}