barn.pl

#!/usr/bin/perl
#

use LWP::UserAgent;
use JSON 2.07;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $url = "http://bit.ly/1TU8wN";

my $shorty = "http://www.longurlplease.com/api/v1.1?q=$url";

$response = $ua->get($shorty );

if ($response->is_success) {

    my $whee = eval { decode_json( $response->decoded_content ) };
    die("Invalid JSON returned. Error was: $@ Content was " . $response->decoded_content) if $@;
    print $whee->{$url};

}
else {
    die $response->status_line;
}