A depressing tetrodoodle implementation in perl. - View it on GitHub