Here's a Mojolicious (Perl) one I did up since I was bored: https://gist.github.com/RogerDodger/5242390