#!/usr/bin/perl

use JSON;
use LWP::Simple;

my $data = decode_json( get("https://data.mtgox.com/api/2/BTCGBP/money/ticker") );

print ${$data}{"data"}{"avg"}{"value"};