Yet another perl orm