use WWW::Shorten::Shorl;

  use WWW::Shorten 'Shorl';

  $short_url = makeashorterlink($long_url);
  ($short_url,$password) = makeashorterlink($long_url);

  $long_url  = makealongerlink($short_url);

The function "makeashorterlink" will call the Shorl web site passing it your long URL and will return the shorter Shorl version. If used in a list context, then it will return both the Shorl URL and the password.

The function "makealongerlink" does the reverse. "makealongerlink" will accept as an argument either the full Shorl URL or just the Shorl identifier.

If anything goes wrong, then either function will return "undef".

Note that Shorl, unlike TinyURL and MakeAShorterLink, returns a unique code for every submission.

EXPORT

SUPPORT, LICENCE, THANKS and SUCH

Based on WWW::MakeAShorterLink by Dave Cross <[email protected]>