updated perry() example