gistfile1.pl

sub bitly {
    my $self = shift;
    my $url  = $self->url;
    my $api_url =
        "http://api.bit.ly/shorten?version=2.0.1&format=xml&login=xxx&apiKey=xxx&longUrl=$url";
    my $ua  = LWP::UserAgent->new();
    my $res = $ua->get($api_url);
    if ( $res->content =~ m!<shortUrl>(.+?)</shortUrl>! ) {
        return $1;
    }
    else {
        return $url;
    }
}