use 5.020;
use strict;
use warnings;
use LWP::Simple;
use JSON;

my $address = '12dRugNcdxK39288NjcDV4GX7rMsKCGn6B';
my $content = get("https://blockchain.info/rawaddr/$address");
defined $content  or  die "Falsche Adresse: '$address'";
my $result = decode_json $content;

say "Anzahl Transaktionen: $result->{n_tx}";
say "Insgesamt erhalten:   ", $result->{total_received}/1E8;
say "Saldo:                ", $result->{final_balance}/1E8;