perl WWW-Shorten