shorten.pl

use strict;
use warnings;
use WWW::Shorten::Simple;

my $svc = WWW::Shorten::Simple->new('RevCanonical');
my $short_url = $svc->shorten('http://www.flickr.com/photos/mattn_jp/3253743034/');
#my $short_url = $svc->shorten('http://24ways.org/2008/recession-tips-for-web-designers');

warn $short_url;
my $canon_url = $svc->unshorten($short_url);
warn $canon_url;