perl fred.pm -MAX=1e3