A perl/catalyst social network