URL Shrinkr in Perl