#!/usr/bin/perl

use 5.010;

use strict;
use warnings;
use Mojo::UserAgent;

my $ua    = Mojo::UserAgent->new;

my $dom = $ua->get("https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G")
    ->res
    ->dom;

my @wanted = ( "final_balance", "total_received" );

for my $what ( @wanted ) {
  my ($wanted) = $dom
      ->find("#$what > font > span")
      ->map("text")
      ->each;

  say "$what: $wanted";
}