william perl app