A DuckDuckGo perl goodie, get a random fortune