A port of nerddinner written in perl