cruddy perl web app